From dd0a8a17b23fed823399cd6b3c171516a21978e2 Mon Sep 17 00:00:00 2001 From: Tyler Wilding Date: Sun, 15 Jan 2023 11:33:39 -0500 Subject: [PATCH] docs - first chunk of work documenting the files I glossed over (#2130) - started documenting the files I glossed over, some are totally done, others are just partially done - I changed the decompiler to automatically initialize the art-group-info from the json file. This makes updating gsrc, even a single file at a time, have consistent naming - Though I disabled this functionality for jak 1, as I have no idea if using the ntsc art groups will cause a regression for different versions - fix indentation for docstrings -- it still doesn't look great, but this is now a formatting concern, rather than the docstring having a bunch of happen-stance leading whitespace. --- .vs/launch.vs.json | 14 + common/type_system/defenum.cpp | 3 +- common/type_system/deftype.cpp | 5 +- common/util/string_util.cpp | 19 + common/util/string_util.h | 4 + decompiler/config.cpp | 8 + decompiler/config.h | 1 + decompiler/config/jak1_jp.jsonc | 1 + decompiler/config/jak1_ntsc_black_label.jsonc | 1 + .../art-group-info.min.json | 0 decompiler/config/jak1_pal.jsonc | 1 + decompiler/config/jak1_sced.jsonc | 1 + decompiler/config/jak1_us2.jsonc | 1 + decompiler/config/jak2/all-types.gc | 324 +- .../jak2/anonymous_function_types.jsonc | 6 +- .../config}/jak2/art-group-info.min.json | 0 decompiler/config/jak2/inputs.jsonc | 31 +- decompiler/config/jak2/stack_structures.jsonc | 8 - decompiler/config/jak2/type_casts.jsonc | 9 +- decompiler/config/jak2/var_names.jsonc | 509 +- decompiler/config/jak2_ntsc_v1.jsonc | 1 + decompiler/main.cpp | 11 +- decompiler/util/DecompilerTypeSystem.cpp | 3 +- goal_src/jak2/engine/ai/enemy.gc | 24 +- goal_src/jak2/engine/anim/aligner.gc | 6 +- goal_src/jak2/engine/camera/cam-interface.gc | 6 +- goal_src/jak2/engine/common_objs/base-plat.gc | 34 +- .../jak2/engine/common_objs/basebutton.gc | 17 +- .../jak2/engine/common_objs/blocking-plane.gc | 6 + .../jak2/engine/common_objs/collectables.gc | 54 + goal_src/jak2/engine/common_objs/conveyor.gc | 8 +- goal_src/jak2/engine/common_objs/crates.gc | 6 + goal_src/jak2/engine/common_objs/elevator.gc | 112 +- .../jak2/engine/common_objs/generic-obs.gc | 36 +- goal_src/jak2/engine/common_objs/plat.gc | 28 +- .../jak2/engine/common_objs/projectile.gc | 14 +- .../engine/common_objs/rigid-body-plat.gc | 8 +- goal_src/jak2/engine/common_objs/voicebox.gc | 6 + .../jak2/engine/common_objs/water-anim.gc | 18 +- goal_src/jak2/engine/debug/history.gc | 21 +- goal_src/jak2/engine/debug/memory-usage.gc | 25 +- .../jak2/engine/debug/nav/mysql-nav-graph.gc | 102 +- goal_src/jak2/engine/debug/viewer.gc | 6 + goal_src/jak2/engine/entity/entity-table.gc | 6 +- goal_src/jak2/engine/game/task/task-arrow.gc | 3 + .../jak2/engine/game/task/task-control-h.gc | 2 +- .../jak2/engine/game/task/task-control.gc | 14 +- goal_src/jak2/engine/geometry/path-h.gc | 6 +- goal_src/jak2/engine/geometry/path.gc | 181 +- goal_src/jak2/engine/gfx/hw/video.gc | 18 +- goal_src/jak2/engine/gfx/mood/mood-h.gc | 9 +- goal_src/jak2/engine/gfx/mood/mood-tables2.gc | 8 +- goal_src/jak2/engine/gfx/mood/mood.gc | 175 +- goal_src/jak2/engine/nav/nav-control.gc | 10 +- goal_src/jak2/engine/nav/nav-enemy.gc | 8 +- goal_src/jak2/engine/nav/nav-mesh-h.gc | 2 +- goal_src/jak2/engine/physics/rigid-body.gc | 6 + .../process-drawable/process-taskable.gc | 16 +- .../jak2/engine/target/gun/gun-blue-shot.gc | 4 +- .../jak2/engine/target/gun/gun-dark-shot.gc | 2 +- goal_src/jak2/engine/target/gun/gun-util.gc | 10 +- .../jak2/engine/target/gun/gun-yellow-shot.gc | 4 +- .../jak2/engine/target/mech_suit/carry-h.gc | 2 +- .../jak2/engine/target/mech_suit/mech-part.gc | 1 + goal_src/jak2/engine/target/mech_suit/mech.gc | 15 +- goal_src/jak2/engine/target/target-tube.gc | 6 + .../jak2/engine/target/target-turret-shot.gc | 2 +- goal_src/jak2/engine/ui/text.gc | 6 +- goal_src/jak2/engine/util/sync-info-h.gc | 2 +- goal_src/jak2/levels/atoll/ash1-course.gc | 8 +- goal_src/jak2/levels/atoll/sig0-course.gc | 4 +- goal_src/jak2/levels/castle/pad/caspad-obs.gc | 178 +- .../jak2/levels/city/common/height-map-h.gc | 5 +- .../jak2/levels/city/common/nav-graph-h.gc | 41 +- .../jak2/levels/city/common/vehicle-rider.gc | 14 +- .../jak2/levels/city/market/ctymark-obs.gc | 233 +- .../misc/collection_task/collection-task.gc | 359 +- .../jak2/levels/city/oracle/oracle-scenes.gc | 2 +- .../levels/city/port/race/errol-chal-part.gc | 1 + goal_src/jak2/levels/common/airlock.gc | 60 +- goal_src/jak2/levels/common/battle.gc | 6 + goal_src/jak2/levels/common/elec-gate.gc | 42 +- goal_src/jak2/levels/common/enemy/bouncer.gc | 6 + .../common/enemy/guards/guard-conversation.gc | 6 + .../common/enemy/guards/transport-level.gc | 10 +- .../enemy/metalhead_bearer/centurion.gc | 2 +- .../common/entities/fort-floor-spike.gc | 210 +- .../jak2/levels/common/guard-projectile.gc | 10 +- .../levels/common/metalhead-projectile.gc | 6 +- goal_src/jak2/levels/common/scene-actor.gc | 90 +- goal_src/jak2/levels/common/scene-looper.gc | 4 +- goal_src/jak2/levels/common/warp-gate.gc | 6 + .../jak2/levels/consite/consite-scenes.gc | 10 +- goal_src/jak2/levels/dig/dig-digger.gc | 61 +- goal_src/jak2/levels/dig/dig-obs.gc | 30 +- goal_src/jak2/levels/dig/dig1-obs.gc | 27 +- goal_src/jak2/levels/dig/dig2-obs.gc | 68 + goal_src/jak2/levels/dig/dig3-obs.gc | 98 +- goal_src/jak2/levels/forest/fish.gc | 11 +- goal_src/jak2/levels/forest/predator.gc | 14 +- goal_src/jak2/levels/forest/wren.gc | 51 +- .../levels/fortress/ammo_dump/fordumpa-obs.gc | 26 +- .../levels/fortress/ammo_dump/fordumpb-obs.gc | 31 +- .../levels/fortress/ammo_dump/fordumpc-obs.gc | 29 +- .../ammo_dump/fort-robotank-turret.gc | 40 +- .../fortress/ammo_dump/fort-robotank.gc | 10 +- .../jak2/levels/fortress/exit/forexita-obs.gc | 26 +- goal_src/jak2/levels/fortress/fort-turret.gc | 30 +- goal_src/jak2/levels/fortress/fortress-obs.gc | 6 + .../jak2/levels/fortress/prison/prison-obs.gc | 24 + goal_src/jak2/levels/gungame/gun-dummy.gc | 575 +- goal_src/jak2/levels/gungame/gungame-data.gc | 22550 ++++------------ goal_src/jak2/levels/gungame/gungame-obs.gc | 86 +- goal_src/jak2/levels/hideout/hideout-obs.gc | 12 + goal_src/jak2/levels/hiphog/hiphog-part.gc | 135 +- goal_src/jak2/levels/hiphog/hiphog-scenes.gc | 102 +- goal_src/jak2/levels/mars_tomb/tomb-obs.gc | 128 +- goal_src/jak2/levels/mars_tomb/tomb-scenes.gc | 40 +- goal_src/jak2/levels/mars_tomb/tomb-water.gc | 91 +- .../jak2/levels/nest/boss/nestb-scenes.gc | 12 + goal_src/jak2/levels/nest/nest-scenes.gc | 24 +- .../jak2/levels/palace/explore/palent-part.gc | 2 + .../jak2/levels/palace/roof/palboss-scenes.gc | 36 +- .../jak2/levels/palace/roof/palroof-part.gc | 3 + .../jak2/levels/palace/shaft/palshaft-part.gc | 1 + .../levels/palace/throne_room/throne-part.gc | 2 + goal_src/jak2/levels/ruins/breakable-wall.gc | 48 +- goal_src/jak2/levels/ruins/mechtest-obs.gc | 22 +- goal_src/jak2/levels/ruins/pillar-collapse.gc | 18 +- goal_src/jak2/levels/ruins/ruins-obs.gc | 72 +- goal_src/jak2/levels/ruins/ruins-part.gc | 44 +- goal_src/jak2/levels/ruins/ruins-scenes.gc | 101 +- goal_src/jak2/levels/sewer/sewer-obs.gc | 56 +- goal_src/jak2/levels/sewer/sewer-obs2.gc | 109 +- .../levels/stadium/jetboard/skatea-obs.gc | 52 +- goal_src/jak2/levels/stadium/stadium-part.gc | 11 +- .../jak2/levels/stadium/stadium-scenes.gc | 10 +- goal_src/jak2/levels/strip/chaincrate.gc | 10 +- goal_src/jak2/levels/strip/strip-drop.gc | 51 +- goal_src/jak2/levels/strip/strip-obs.gc | 83 +- goal_src/jak2/levels/strip/strip-rescue.gc | 22 +- .../levels/temple/canyon/canyon-scenes.gc | 39 +- .../jak2/levels/temple/canyon/mincan-obs.gc | 171 +- goal_src/jak2/levels/temple/mountain-obs.gc | 153 +- goal_src/jak2/levels/temple/mountain-obs2.gc | 18 +- .../jak2/levels/temple/mountain-scenes.gc | 72 +- goal_src/jak2/levels/temple/rhino-wall.gc | 6 + .../jak2/levels/underport/under-scenes.gc | 66 +- .../jak2/characters/sig/sig-shot_REF.gc | 8 +- .../reference/jak2/engine/ai/enemy_REF.gc | 24 +- .../reference/jak2/engine/anim/aligner_REF.gc | 6 +- .../jak2/engine/camera/cam-interface_REF.gc | 6 +- .../jak2/engine/common_objs/base-plat_REF.gc | 34 +- .../jak2/engine/common_objs/basebutton_REF.gc | 12 +- .../engine/common_objs/blocking-plane_REF.gc | 6 + .../engine/common_objs/collectables_REF.gc | 54 + .../jak2/engine/common_objs/conveyor_REF.gc | 8 +- .../jak2/engine/common_objs/crates_REF.gc | 6 + .../jak2/engine/common_objs/elevator_REF.gc | 108 +- .../engine/common_objs/generic-obs_REF.gc | 32 +- .../jak2/engine/common_objs/plat_REF.gc | 28 +- .../jak2/engine/common_objs/projectile_REF.gc | 14 +- .../engine/common_objs/rigid-body-plat_REF.gc | 6 + .../jak2/engine/common_objs/voicebox_REF.gc | 6 + .../jak2/engine/common_objs/water-anim_REF.gc | 6 + .../jak2/engine/debug/history_REF.gc | 20 +- .../jak2/engine/debug/memory-usage_REF.gc | 18 +- .../engine/debug/nav/mysql-nav-graph_REF.gc | 17 +- .../jak2/engine/debug/sampler_REF.gc | 6 +- .../reference/jak2/engine/debug/viewer_REF.gc | 6 + .../jak2/engine/draw/drawable_REF.gc | 10 +- .../jak2/engine/entity/entity-table_REF.gc | 6 +- .../jak2/engine/game/task/task-arrow_REF.gc | 3 + .../engine/game/task/task-control-h_REF.gc | 2 +- .../jak2/engine/game/task/task-control_REF.gc | 2 +- .../jak2/engine/geometry/path-h_REF.gc | 6 +- .../jak2/engine/geometry/path_REF.gc | 148 +- .../reference/jak2/engine/gfx/hw/gs_REF.gc | 12 +- .../reference/jak2/engine/gfx/hw/video_REF.gc | 14 +- .../jak2/engine/gfx/mood/mood-h_REF.gc | 2 +- .../jak2/engine/gfx/mood/mood-tables2_REF.gc | 4 +- .../jak2/engine/gfx/mood/mood_REF.gc | 14 +- .../jak2/engine/gfx/ocean/ocean_REF.gc | 2 +- .../reference/jak2/engine/level/bsp_REF.gc | 8 +- .../reference/jak2/engine/level/region_REF.gc | 48 +- .../jak2/engine/nav/nav-control_REF.gc | 10 +- .../jak2/engine/nav/nav-enemy_REF.gc | 8 +- .../jak2/engine/nav/nav-mesh-h_REF.gc | 2 +- .../jak2/engine/physics/rigid-body_REF.gc | 6 + .../process-drawable/process-taskable_REF.gc | 16 +- .../reference/jak2/engine/sound/gsound_REF.gc | 2 +- .../engine/target/gun/gun-blue-shot_REF.gc | 4 +- .../engine/target/gun/gun-dark-shot_REF.gc | 2 +- .../jak2/engine/target/gun/gun-util_REF.gc | 10 +- .../engine/target/gun/gun-yellow-shot_REF.gc | 4 +- .../engine/target/mech_suit/carry-h_REF.gc | 2 +- .../engine/target/mech_suit/mech-part_REF.gc | 5 +- .../jak2/engine/target/mech_suit/mech_REF.gc | 6 + .../jak2/engine/target/target-tube_REF.gc | 6 + .../engine/target/target-turret-shot_REF.gc | 2 +- .../reference/jak2/engine/ui/text_REF.gc | 6 +- .../jak2/engine/util/sync-info-h_REF.gc | 2 +- .../jak2/levels/atoll/ash1-course_REF.gc | 12 +- .../jak2/levels/atoll/sig0-course_REF.gc | 8 +- .../jak2/levels/castle/pad/caspad-obs_REF.gc | 173 +- .../levels/city/common/height-map-h_REF.gc | 9 +- .../levels/city/common/nav-graph-h_REF.gc | 45 +- .../levels/city/common/vehicle-rider_REF.gc | 6 + .../levels/city/market/ctymark-obs_REF.gc | 233 +- .../collection_task/collection-task_REF.gc | 353 +- .../levels/city/oracle/oracle-scenes_REF.gc | 2 +- .../city/port/race/errol-chal-part_REF.gc | 5 +- .../jak2/levels/common/ai/bot_REF.gc | 6 +- .../jak2/levels/common/airlock_REF.gc | 54 + .../jak2/levels/common/battle_REF.gc | 6 + .../jak2/levels/common/elec-gate_REF.gc | 28 +- .../jak2/levels/common/enemy/bouncer_REF.gc | 6 + .../enemy/guards/guard-conversation_REF.gc | 6 + .../enemy/guards/transport-level_REF.gc | 6 + .../enemy/metalhead_bearer/centurion_REF.gc | 2 +- .../common/entities/fort-floor-spike_REF.gc | 196 +- .../levels/common/guard-projectile_REF.gc | 10 +- .../levels/common/metalhead-projectile_REF.gc | 6 +- .../jak2/levels/common/scene-actor_REF.gc | 48 +- .../jak2/levels/common/scene-looper_REF.gc | 4 +- .../jak2/levels/common/warp-gate_REF.gc | 6 + .../jak2/levels/consite/consite-scenes_REF.gc | 10 +- .../jak2/levels/dig/dig-digger_REF.gc | 18 + .../reference/jak2/levels/dig/dig-obs_REF.gc | 14 +- .../reference/jak2/levels/dig/dig1-obs_REF.gc | 6 + .../reference/jak2/levels/dig/dig2-obs_REF.gc | 6 + .../reference/jak2/levels/dig/dig3-obs_REF.gc | 46 +- .../reference/jak2/levels/forest/fish_REF.gc | 6 + .../jak2/levels/forest/predator_REF.gc | 14 +- .../reference/jak2/levels/forest/wren_REF.gc | 8 +- .../fortress/ammo_dump/fordumpa-obs_REF.gc | 12 + .../fortress/ammo_dump/fordumpb-obs_REF.gc | 18 +- .../fortress/ammo_dump/fordumpc-obs_REF.gc | 12 + .../ammo_dump/fort-robotank-turret_REF.gc | 25 +- .../fortress/ammo_dump/fort-robotank_REF.gc | 6 + .../levels/fortress/exit/forexita-obs_REF.gc | 18 +- .../jak2/levels/fortress/fort-turret_REF.gc | 2 +- .../jak2/levels/fortress/fortress-obs_REF.gc | 6 + .../levels/fortress/prison/prison-obs_REF.gc | 24 + .../jak2/levels/gungame/gun-dummy_REF.gc | 549 +- .../jak2/levels/gungame/gungame-data_REF.gc | 22550 ++++------------ .../jak2/levels/gungame/gungame-obs_REF.gc | 81 +- .../jak2/levels/hideout/hideout-obs_REF.gc | 12 + .../jak2/levels/hiphog/hiphog-part_REF.gc | 139 +- .../jak2/levels/hiphog/hiphog-scenes_REF.gc | 82 +- .../jak2/levels/mars_tomb/tomb-obs_REF.gc | 88 +- .../jak2/levels/mars_tomb/tomb-scenes_REF.gc | 32 +- .../jak2/levels/mars_tomb/tomb-water_REF.gc | 60 +- .../jak2/levels/nest/boss/nestb-scenes_REF.gc | 12 + .../jak2/levels/nest/nest-scenes_REF.gc | 24 +- .../levels/palace/explore/palent-part_REF.gc | 6 +- .../levels/palace/roof/palboss-scenes_REF.gc | 8 +- .../levels/palace/roof/palroof-part_REF.gc | 7 +- .../levels/palace/shaft/palshaft-part_REF.gc | 5 +- .../palace/throne_room/throne-part_REF.gc | 6 +- .../jak2/levels/ruins/breakable-wall_REF.gc | 10 +- .../jak2/levels/ruins/mechtest-obs_REF.gc | 16 +- .../jak2/levels/ruins/pillar-collapse_REF.gc | 6 + .../jak2/levels/ruins/ruins-obs_REF.gc | 26 +- .../jak2/levels/ruins/ruins-part_REF.gc | 44 +- .../jak2/levels/ruins/ruins-scenes_REF.gc | 73 +- .../jak2/levels/sewer/sewer-obs2_REF.gc | 79 +- .../jak2/levels/sewer/sewer-obs_REF.gc | 36 + .../levels/stadium/jetboard/skatea-obs_REF.gc | 24 + .../jak2/levels/stadium/stadium-part_REF.gc | 15 +- .../jak2/levels/stadium/stadium-scenes_REF.gc | 2 +- .../jak2/levels/strip/chaincrate_REF.gc | 6 + .../jak2/levels/strip/strip-drop_REF.gc | 18 + .../jak2/levels/strip/strip-obs_REF.gc | 42 +- .../jak2/levels/strip/strip-rescue_REF.gc | 12 + .../levels/temple/canyon/canyon-scenes_REF.gc | 39 +- .../levels/temple/canyon/mincan-obs_REF.gc | 163 +- .../jak2/levels/temple/mountain-obs2_REF.gc | 14 +- .../jak2/levels/temple/mountain-obs_REF.gc | 97 +- .../jak2/levels/temple/mountain-scenes_REF.gc | 56 +- .../jak2/levels/temple/rhino-wall_REF.gc | 6 + .../jak2/levels/underport/under-scenes_REF.gc | 50 +- test/offline/framework/file_management.cpp | 14 - test/offline/framework/file_management.h | 2 - test/offline/framework/orchestration.cpp | 4 +- 285 files changed, 16314 insertions(+), 39431 deletions(-) rename {test/offline/data/jak1 => decompiler/config/jak1_ntsc_black_label}/art-group-info.min.json (100%) rename {test/offline/data => decompiler/config}/jak2/art-group-info.min.json (100%) diff --git a/.vs/launch.vs.json b/.vs/launch.vs.json index c4691d076f..a224c917b9 100644 --- a/.vs/launch.vs.json +++ b/.vs/launch.vs.json @@ -71,6 +71,20 @@ "32" ] }, + { + "type": "default", + "project": "CMakeLists.txt", + "projectTarget": "offline-test.exe (bin\\offline-test.exe)", + "name": "Tests - Offline Tests - Jak 1 - Specific File", + "args": [ + "--iso_data_path", + "${workspaceRoot}/iso_data/jak1", + "--game", + "jak1", + "--file", + "wall-plat" + ] + }, { "type": "default", "project": "CMakeLists.txt", diff --git a/common/type_system/defenum.cpp b/common/type_system/defenum.cpp index 95b99874ca..893317ed62 100644 --- a/common/type_system/defenum.cpp +++ b/common/type_system/defenum.cpp @@ -11,6 +11,7 @@ #include "common/goos/ParseHelpers.h" #include "common/log/log.h" #include "common/util/BitUtils.h" +#include "common/util/string_util.h" #include "third-party/fmt/core.h" @@ -60,7 +61,7 @@ EnumType* parse_defenum(const goos::Object& defenum, if (iter->is_pair() && car(iter).is_string()) { // TODO - docstring - store and use docstring if coming from the compiler if (symbol_metadata) { - symbol_metadata->docstring = car(iter).as_string()->data; + symbol_metadata->docstring = str_util::trim_newline_indents(car(iter).as_string()->data); } iter = cdr(iter); } diff --git a/common/type_system/deftype.cpp b/common/type_system/deftype.cpp index 2076e3e56d..de24112536 100644 --- a/common/type_system/deftype.cpp +++ b/common/type_system/deftype.cpp @@ -8,6 +8,7 @@ #include "common/goos/ParseHelpers.h" #include "common/log/log.h" +#include "common/util/string_util.h" #include "third-party/fmt/core.h" @@ -205,7 +206,7 @@ void declare_method(Type* type, TypeSystem* type_system, const goos::Object& def // check for docstring std::optional docstring; if (obj->is_pair() && car(obj).is_string()) { - docstring = car(obj).as_string()->data; + docstring = str_util::trim_newline_indents(car(obj).as_string()->data); obj = cdr(obj); } auto& args = car(obj); @@ -588,7 +589,7 @@ DeftypeResult parse_deftype(const goos::Object& deftype, iter = cdr(iter); // check for docstring if (iter->is_pair() && car(iter).is_string()) { - symbol_metadata.docstring = car(iter).as_string()->data; + symbol_metadata.docstring = str_util::trim_newline_indents(car(iter).as_string()->data); iter = cdr(iter); } auto& field_list_obj = car(iter); diff --git a/common/util/string_util.cpp b/common/util/string_util.cpp index d883f38cdb..a7c83d8100 100644 --- a/common/util/string_util.cpp +++ b/common/util/string_util.cpp @@ -38,6 +38,25 @@ std::string trim(const std::string& s) { return rtrim(ltrim(s)); } +std::string trim_newline_indents(const std::string& s) { + auto lines = split(s, '\n'); + std::vector trimmed_lines; + std::transform(lines.begin(), lines.end(), std::back_inserter(trimmed_lines), + [](const std::string& line) { return ltrim(line); }); + return join(trimmed_lines, "\n"); +} + +std::string join(const std::vector& strs, const std::string& join_with) { + std::string out; + for (int i = 0; i < strs.size(); i++) { + out += strs.at(i); + if (i < strs.size() - 1) { + out += join_with; + } + } + return out; +} + int line_count(const std::string& str) { int result = 0; for (auto& c : str) { diff --git a/common/util/string_util.h b/common/util/string_util.h index f608c7b243..79a7af55d8 100644 --- a/common/util/string_util.h +++ b/common/util/string_util.h @@ -10,9 +10,13 @@ bool ends_with(const std::string& s, const std::string& prefix); std::string ltrim(const std::string& s); std::string rtrim(const std::string& s); std::string trim(const std::string& s); +/// Given a string with new-lines, split and trim the leading whitespace from each line +/// then return the string with the new-lines back in place. +std::string trim_newline_indents(const std::string& s); int line_count(const std::string& str); bool valid_regex(const std::string& regex); std::string diff(const std::string& lhs, const std::string& rhs); /// Default splits on \n characters std::vector split(const ::std::string& str, char delimiter = '\n'); +std::string join(const std::vector& strs, const std::string& join_with); } // namespace str_util diff --git a/decompiler/config.cpp b/decompiler/config.cpp index 9bb63bbcd2..4ff18b454f 100644 --- a/decompiler/config.cpp +++ b/decompiler/config.cpp @@ -52,6 +52,14 @@ Config read_config_file(const fs::path& path_to_config_file, const std::string& config.streamed_audio_file_names = inputs_json.at("streamed_audio_file_names").get>(); + if (cfg.contains("art_group_dump_file")) { + auto json_data = file_util::read_text_file( + file_util::get_file_path({cfg.at("art_group_dump_file").get()})); + std::unordered_map> serialized = + parse_commented_json(json_data, "art_group_dump_file"); + config.art_group_info_dump = serialized; + } + if (cfg.contains("obj_file_name_map_file")) { config.obj_file_name_map_file = cfg.at("obj_file_name_map_file").get(); } diff --git a/decompiler/config.h b/decompiler/config.h index 4a63c0b503..497bdf33ec 100644 --- a/decompiler/config.h +++ b/decompiler/config.h @@ -163,6 +163,7 @@ struct Config { std::unordered_map art_groups_by_file; std::unordered_map art_groups_by_function; + std::unordered_map> art_group_info_dump; std::unordered_map> import_deps_by_file; }; diff --git a/decompiler/config/jak1_jp.jsonc b/decompiler/config/jak1_jp.jsonc index 740b40dd07..c7611faa01 100644 --- a/decompiler/config/jak1_jp.jsonc +++ b/decompiler/config/jak1_jp.jsonc @@ -87,6 +87,7 @@ "art_info_file": "decompiler/config/jak1_ntsc_black_label/art_info.jsonc", "import_deps_file": "decompiler/config/jak1_ntsc_black_label/import_deps.jsonc", "all_types_file": "decompiler/config/all-types.gc", + "art_group_dump_file": "decompiler/config/jak1_ntsc_black_label/art-group-info.min.json", // optional: a predetermined object file name map from a file. // this will make decompilation naming consistent even if you only run on some objects. diff --git a/decompiler/config/jak1_ntsc_black_label.jsonc b/decompiler/config/jak1_ntsc_black_label.jsonc index 7846a6c8f9..3e56574135 100644 --- a/decompiler/config/jak1_ntsc_black_label.jsonc +++ b/decompiler/config/jak1_ntsc_black_label.jsonc @@ -87,6 +87,7 @@ "art_info_file": "decompiler/config/jak1_ntsc_black_label/art_info.jsonc", "import_deps_file": "decompiler/config/jak1_ntsc_black_label/import_deps.jsonc", "all_types_file": "decompiler/config/all-types.gc", + "art_group_dump_file": "decompiler/config/jak1_ntsc_black_label/art-group-info.min.json", // optional: a predetermined object file name map from a file. // this will make decompilation naming consistent even if you only run on some objects. diff --git a/test/offline/data/jak1/art-group-info.min.json b/decompiler/config/jak1_ntsc_black_label/art-group-info.min.json similarity index 100% rename from test/offline/data/jak1/art-group-info.min.json rename to decompiler/config/jak1_ntsc_black_label/art-group-info.min.json diff --git a/decompiler/config/jak1_pal.jsonc b/decompiler/config/jak1_pal.jsonc index c56141f519..44756c3a85 100644 --- a/decompiler/config/jak1_pal.jsonc +++ b/decompiler/config/jak1_pal.jsonc @@ -87,6 +87,7 @@ "art_info_file": "decompiler/config/jak1_ntsc_black_label/art_info.jsonc", "import_deps_file": "decompiler/config/jak1_ntsc_black_label/import_deps.jsonc", "all_types_file": "decompiler/config/all-types.gc", + "art_group_dump_file": "decompiler/config/jak1_ntsc_black_label/art-group-info.min.json", // optional: a predetermined object file name map from a file. // this will make decompilation naming consistent even if you only run on some objects. diff --git a/decompiler/config/jak1_sced.jsonc b/decompiler/config/jak1_sced.jsonc index 946a067244..749a322378 100644 --- a/decompiler/config/jak1_sced.jsonc +++ b/decompiler/config/jak1_sced.jsonc @@ -77,6 +77,7 @@ "stack_structures_file": "decompiler/config/jak1_sced/stack_structures.jsonc", "hacks_file": "decompiler/config/jak1_sced/hacks.jsonc", "inputs_file": "decompiler/config/jak1_sced/inputs.jsonc", + "art_group_dump_file": "decompiler/config/jak1_ntsc_black_label/art-group-info.min.json", // optional: a predetermined object file name map from a file. // this will make decompilation naming consistent even if you only run on some objects. diff --git a/decompiler/config/jak1_us2.jsonc b/decompiler/config/jak1_us2.jsonc index 802d4e799d..7c4f80fccc 100644 --- a/decompiler/config/jak1_us2.jsonc +++ b/decompiler/config/jak1_us2.jsonc @@ -87,6 +87,7 @@ "art_info_file": "decompiler/config/jak1_ntsc_black_label/art_info.jsonc", "import_deps_file": "decompiler/config/jak1_ntsc_black_label/import_deps.jsonc", "all_types_file": "decompiler/config/all-types.gc", + "art_group_dump_file": "decompiler/config/jak1_ntsc_black_label/art-group-info.min.json", // optional: a predetermined object file name map from a file. // this will make decompilation naming consistent even if you only run on some objects. diff --git a/decompiler/config/jak2/all-types.gc b/decompiler/config/jak2/all-types.gc index a777fdbba1..7c2a540e5c 100644 --- a/decompiler/config/jak2/all-types.gc +++ b/decompiler/config/jak2/all-types.gc @@ -299,7 +299,14 @@ (new (symbol type string) _type_ 0) (activate (_type_ process-tree basic pointer) process-tree 9) (deactivate (_type_) none 10) - (init-from-entity! (_type_ entity-actor) none 11) ;; todo check + (init-from-entity! + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. + This commonly includes things such as: + - stack size + - collision information + - loading the skeleton group / bones + - sounds" + (_type_ entity-actor) none 11) (run-logic? (_type_) symbol 12) (process-tree-method-13 () none 13) ) @@ -7445,7 +7452,7 @@ (get-trail-for-connection "Get a trail for connection. If arg1 is set, allow allocating a new one." (_type_ connection-minimap symbol) minimap-trail 10) (get-icon-draw-pos "Follow the path from the start until it reaches the border of the map, then get this position." (_type_ connection-minimap minimap-trail vector float vector) symbol 11) - (add-icon! "Add an icon to the map!" (_type_ process uint int vector int) connection-minimap 12) + (add-icon! "Add an icon to the map!" (_type_ process uint int vector int) connection-minimap 12) ;; int can be #f / vector can be a symbol (free-trail-by-connection "Free the trail associated with this connection." (_type_ connection-minimap) none 13) (update-trails "Main function to do trail search per-frame" (_type_) none 14) (draw-1 (_type_ dma-buffer vector4w symbol) none 15) ;; hud sprite 1 draw @@ -9779,7 +9786,7 @@ :flag-assert #xa00000010 (:methods (new (symbol type game-task-actor) _type_ 0) - (game-task-control-method-9 (_type_) game-task-event 9) + (get-current-task-event (_type_) game-task-event 9) ) ) @@ -15351,7 +15358,7 @@ (scene-start-time time-frame :offset-assert 312) (targ-speed float :offset-assert 320) (cur-speed float :offset-assert 324) - (speed-change-time time-frame :offset-assert 328) + (speed-change-time time-frame :offset-assert 328) ;; TODO - i don't think this is a time-frame see attach-pod-part (speed-press-time time-frame :offset-assert 336) (speed-change-speed float :offset-assert 344) (unknown-time time-frame :offset 344) ;; TODO - see attach-pod-part @@ -15384,7 +15391,7 @@ ) (deftype sync-info-params (structure) - ((sync-type basic :offset-assert 0) + ((sync-type symbol :offset-assert 0) (sync-flags sync-flags :offset-assert 8) (entity basic :offset-assert 16) (period uint32 :offset-assert 20) @@ -28838,6 +28845,9 @@ ) (deftype task-arrow (process-drawable) + "Despite the name, these are actually the beams of light that highlight + various objections. Such as the flag in the first ruins mission + or collectable items on the ground (jetboard / weapon upgrades / etc)" ((pos vector :inline :offset-assert 208) (theta float :offset-assert 224) (phi float :offset-assert 228) @@ -33262,9 +33272,14 @@ (get-art-group "@returns The associated [[art-group]]" (_type_) art-group 30) - (base-plat-method-31 "TODO - collision stuff" (_type_) none 31) + (init-plat-collision! + "TODO - collision stuff for setting up the platform" + (_type_) none 31) (base-plat-method-32 (_type_) none 32) - (base-plat-method-33 (_type_) none 33) + (init-plat! + "Does any necessary initial platform setup. + For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." + (_type_) none 33) ) ) @@ -33602,8 +33617,8 @@ (defenum elevator-status :type uint64 :bitfield #t - (elevator-status-0) - (elevator-status-1) + (waiting-to-descend) + (waiting-to-ascend) (moving) (elevator-status-3) (elevator-status-4) @@ -33645,9 +33660,9 @@ @param path-point-x The index of the first point in the distance calculation, and where `next-pos` and `dist` are stored in the `path-seq` array @param path-point-y The second point in the distance calculation" (_type_ int int) none 39) - (elevator-method-40 - "TODO - need to figure out some flags to be confident about this" - (_type_) object 40) + (activate-elevator + "Puts the elevator initially into the correct state. This is typically based upon game completion" + (_type_) none 40) (init-defaults! "Initializes default settings related to the [[elevator]]: - `elevator-xz-threshold` @@ -33656,13 +33671,19 @@ - `elevator-move-rate` - `elevator-flags`" (_type_) none 41) - (clear-ambient-sound! - "Might be a virtual function, but clears the object's [[ambient-sound]]" + (set-ambient-sound! + "Sets the elevator's [[ambient-sound]] up" (_type_) none 42) - (elevator-method-43 (_type_ vector float float) symbol 43) + (move-between-points + "Move between two points on the elevator's path + @param vec TODO not sure + @param point-a The first point fetched from the elevator's path + @param point-b The second point fetched from the path + @see [[path-control]] and [[elevator]]" + (_type_ vector float float) symbol 43) (elevator-method-44 (_type_) symbol 44) - (elevator-method-45 - "@returns Stub, or always returns [[#t]]" + (commited-to-ride? + "@returns if the target is considered within the elevator area enough to begin descending/ascending" (_type_) symbol 45) (move-to-next-point! "If the [[*target*]] is in a valid state and there is a point to transition to in the elevator's path @@ -41779,8 +41800,10 @@ :flag-assert #x10003000b0 ) -(define-extern throne-deactivate (function none)) -(define-extern throne-activate (function none)) +(define-extern throne-deactivate + "Sets [[*math-camera*.f]] to `10,000` meters" (function none)) +(define-extern throne-activate + "Sets [[*math-camera*.f]] to `20,000` meters" (function none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; palace-scenes ;; @@ -43124,9 +43147,13 @@ :flag-assert #x10003000b0 ) -(define-extern check-drop-level-palroof-drop-userdata (function sparticle-system sparticle-cpuinfo matrix none)) -(define-extern palroof-deactivate (function none)) -(define-extern palroof-activate (function none)) +(define-extern check-drop-level-palroof-drop-userdata "TODO" (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern palroof-deactivate + "Sets [[palshaft.bigmap-id]] to `11` and [[*math-camera*.f]] to `20,000` meters" + (function none)) +(define-extern palroof-activate + "Sets [[palshaft.bigmap-id]] to `20` and [[*math-camera*.f]] to `10,000` meters" + (function none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; palroof-obs ;; @@ -43575,10 +43602,12 @@ ;; consite-scenes ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define-extern consite-crimson-guard-shot (function sparticle-launcher vector sparticle-launch-state none)) -(define-extern movie-consite-metalkor-shot-draw-fire (function vector vector none)) -(define-extern movie-consite-metalkor-shot-draw-moving (function vector vector float none)) -(define-extern movie-consite-metalkor-shot-draw-impact (function scene-player vector vector none)) +(define-extern consite-crimson-guard-shot + "The guards briefly shoot at Kor before being rekt" + (function sparticle-launcher vector sparticle-launch-state none)) +(define-extern movie-consite-metalkor-shot-draw-fire "TODO - cutscenes/docs" (function vector vector none)) +(define-extern movie-consite-metalkor-shot-draw-moving "TODO - cutscenes/docs" (function vector vector float none)) +(define-extern movie-consite-metalkor-shot-draw-impact "TODO - cutscenes/docs" (function scene-player vector vector none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; consite-obs ;; @@ -43956,7 +43985,7 @@ (deftype fort-floor-spike (process-drawable) ((pos-table (inline-array vector) :offset-assert 200) (spike-row spike-row-info-array :offset-assert 204) - (spike-dim basic 2 :offset-assert 208) + (spike-dim int32 2 :offset-assert 208) (attack-id int32 :offset-assert 216) (no-overlap-timer uint64 :offset-assert 224) ) @@ -43965,9 +43994,15 @@ :flag-assert #x18007000e8 (:methods (idle () _type_ :state 20) - (fort-floor-spike-method-21 (_type_) none 21) - (fort-floor-spike-method-22 (_type_) collide-shape-moving 22) - (fort-floor-spike-method-23 (_type_) symbol 23) + (init-spike-joints! + "Initializes the skeleton and joints for the spike" + (_type_) none 21) + (init-spike-collision! + "Initializes the collision for the particular spike" + (_type_) collide-shape-moving 22) + (init-periodic-animation! + "Initialzes the periodic animation of the spikes (exit and re-entry)" + (_type_) symbol 23) ) ) @@ -44103,8 +44138,10 @@ :flag-assert #x10003000b0 ) -(define-extern palent-deactivate (function none)) -(define-extern palent-activate (function none)) +(define-extern palent-deactivate + "Sets [[palshaft.bigmap-id]] to `20`" (function none)) +(define-extern palent-activate + "Sets [[palshaft.bigmap-id]] to `12`" (function none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; pal-obs ;; @@ -44265,7 +44302,9 @@ ;; mech-part ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define-extern mech-spawn-thruster (function mech-info vector vector float float none)) +(define-extern mech-spawn-thruster + "Draws the mech's thrusters" + (function mech-info vector vector float float none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; mech ;; @@ -44788,7 +44827,9 @@ :flag-assert #x10003000b0 ) -(define-extern check-drop-level-stadium-drop-userdata (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern check-drop-level-stadium-drop-userdata + "Ensures the fountains in the stadium don't go through the ground / the splash effect is rendered" + (function sparticle-system sparticle-cpuinfo matrix none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; stadiumb-part ;; @@ -45085,7 +45126,9 @@ :flag-assert #x1d00900110 ) -(define-extern check-market-piece-ground (function sparticle-system sparticle-cpuinfo sparticle-launchinfo float)) +(define-extern check-market-piece-ground + "TODO" + (function sparticle-system sparticle-cpuinfo sparticle-launchinfo none)) (define-extern market-activate (function level none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -46240,7 +46283,9 @@ :flag-assert #x10003000b0 ) -(define-extern palshaft-deactivate (function none)) +(define-extern palshaft-deactivate + "Sets [[palshaft.bigmap-id]] to `20`" + (function none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ctywide-bbush ;; @@ -46527,11 +46572,11 @@ (defenum tpath-control-frame-command :type uint8 (begin) ;; kinda a guess - (tpath-control-frame-command-1) - (tpath-control-frame-command-2) - (tpath-control-frame-command-3) - (tpath-control-frame-command-4) - (tpath-control-frame-command-5) + (arise) + (translate) + (wait) + (align-with-track) + (lower) (end) ;; kinda a guess ) ;; ---gun-dummy:tpath-control-frame-command @@ -46548,12 +46593,27 @@ :flag-assert #x900000008 ) +;; +++gun-dummy:tpath-info-flags +(defenum tpath-info-flags + :type uint8 + :bitfield #t + (tpath-info-flags-0) + (broken) + (score-not-influenced-by-speed) + (tpath-info-flags-3) + (start-on-rand-anim) + (double-hitpoints) + (tpath-info-flags-6) ;; unknown - TODO i think this is related to the peacemaker course + (tpath-info-flags-7) + ) +;; ---gun-dummy:tpath-info-flags + (deftype tpath-info (structure) ((s-time float :offset-assert 0) (num uint16 :offset-assert 4) (ref-time-num int16 :offset-assert 6) (score int16 :offset-assert 8) - (flags uint8 :offset-assert 10) + (flags tpath-info-flags :offset-assert 10) (num-anims uint8 :offset-assert 11) (bonus-time float :offset-assert 12) (list (array int32) :offset-assert 16) @@ -46597,11 +46657,25 @@ :flag-assert #x2100f00168 (:methods (idle () _type_ :state 27) - (gun-dummy-method-28 (_type_) none 28) - (gun-dummy-method-29 (_type_) symbol 29) - (gun-dummy-method-30 (_type_) float 30) - (gun-dummy-method-31 (_type_ tpath-info) none 31) - (gun-dummy-method-32 (_type_) none 32) + (init-dummy-collison! + "Initializes the collision related stuff for the dummy" + (_type_) none 28) + (path-playing? + "Core functionality for playing back the dummy's path. Does things like: + - calculates the score in case the dummy is hit based on the time elapsed + - moves around the dummy + - plays sounds accordingly + @returns if the dummy's current path is still in progress" + (_type_) symbol 29) + (path-time-elapsed + "@returns Calculates the combined total time across all control frames in the path" + (_type_) float 30) + (init-tpath-info! + "Given a [[tpath-info]] use it to initialize the dummy with any relevant data or flags" + (_type_ tpath-info) none 31) + (break-dummy + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (_type_) none 32) ) ) @@ -46625,7 +46699,9 @@ (deftype gun-cit-d (gun-dummy) ()) -(define-extern check-gungame-piece-ground (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern check-gungame-piece-ground + "Ensures the splatter that sits below the dummy when destroyed is at the right height" + (function sparticle-system sparticle-cpuinfo matrix none)) (define-extern *tpath-rand* uint) (define-extern *gun-dummy-a-exploder-params* joint-exploder-static-params) (define-extern *gun-dummy-b-exploder-params* joint-exploder-static-params) @@ -46637,29 +46713,44 @@ (define-extern *gun-cit-b-exploder-params* joint-exploder-static-params) (define-extern *gun-cit-c-exploder-params* joint-exploder-static-params) (define-extern *gun-cit-d-exploder-params* joint-exploder-static-params) -(define-extern gun-dummy-init-by-other (function training-manager tpath-info none :behavior gun-dummy)) -(define-extern gun-dummy-a-init-by-other (function training-manager tpath-info none :behavior gun-dummy)) -(define-extern gun-dummy-b-init-by-other (function training-manager tpath-info none :behavior gun-dummy)) -(define-extern gun-dummy-c-init-by-other (function training-manager tpath-info none :behavior gun-dummy)) -(define-extern gun-dummy-big-init-by-other (function training-manager tpath-info none :behavior gun-dummy)) -(define-extern gun-dummy-gold-init-by-other (function training-manager tpath-info none :behavior gun-dummy)) -(define-extern gun-dummy-peace-init-by-other (function training-manager tpath-info none :behavior gun-dummy)) -(define-extern gun-cit-a-init-by-other (function training-manager tpath-info none :behavior gun-dummy)) -(define-extern gun-cit-b-init-by-other (function training-manager tpath-info none :behavior gun-dummy)) -(define-extern gun-cit-c-init-by-other (function training-manager tpath-info none :behavior gun-dummy)) -(define-extern gun-cit-d-init-by-other (function training-manager tpath-info none :behavior gun-dummy)) +(define-extern gun-dummy-init-by-other + "Initializes a [[gun-dummy]] given a [[tpath-info]]" + (function training-manager tpath-info none :behavior gun-dummy)) +(define-extern gun-dummy-a-init-by-other + "Initializes a [[gun-dummy-a]] given a [[tpath-info]]" (function training-manager tpath-info none :behavior gun-dummy)) +(define-extern gun-dummy-b-init-by-other + "Initializes a [[gun-dummy-b]] given a [[tpath-info]]" (function training-manager tpath-info none :behavior gun-dummy)) +(define-extern gun-dummy-c-init-by-other + "Initializes a [[gun-dummy-c]] given a [[tpath-info]]" (function training-manager tpath-info none :behavior gun-dummy)) +(define-extern gun-dummy-big-init-by-other + "Initializes a [[gun-dummy-big]] given a [[tpath-info]]" (function training-manager tpath-info none :behavior gun-dummy)) +(define-extern gun-dummy-gold-init-by-other + "Initializes a [[gun-dummy-gold]] given a [[tpath-info]]" (function training-manager tpath-info none :behavior gun-dummy)) +(define-extern gun-dummy-peace-init-by-other + "Initializes a [[gun-dummy-peace]] given a [[tpath-info]]" (function training-manager tpath-info none :behavior gun-dummy)) +(define-extern gun-cit-a-init-by-other + "Initializes a [[gun-cit-a]] given a [[tpath-info]]" (function training-manager tpath-info none :behavior gun-dummy)) +(define-extern gun-cit-b-init-by-other + "Initializes a [[gun-cit-b]] given a [[tpath-info]]" (function training-manager tpath-info none :behavior gun-dummy)) +(define-extern gun-cit-c-init-by-other + "Initializes a [[gun-cit-c]] given a [[tpath-info]]" (function training-manager tpath-info none :behavior gun-dummy)) +(define-extern gun-cit-d-init-by-other + "Initializes a [[gun-cit-d]] given a [[tpath-info]]" (function training-manager tpath-info none :behavior gun-dummy)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; gungame-data ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (deftype gungame-crate (structure) + "Describes the contents and position of the crates in the gungame + `num` is the amount of TOTAL ammo to spawn (not pickups) + For example `20` would mean 4 red gun pickups, or 2 yellow gun pickups" ((pos vector :inline :offset-assert 0) (pos-x float :offset 0) (pos-y float :offset 4) (pos-z float :offset 8) (angle float :offset 12) - (ammo int32 :offset-assert 16) + (ammo pickup-type :offset-assert 16) (num uint32 :offset-assert 20) ) :method-count-assert 9 @@ -46848,15 +46939,23 @@ ) (define-extern ripple-for-water-anim-mincan ripple-wave-set) -(define-extern mincan-lighthouse-lens-init-by-other (function mincan-lighthouse entity-actor none :behavior mincan-lighthouse-lens)) +(define-extern mincan-lighthouse-lens-init-by-other + "Given an [[entity-actor]], create the [[mincan-lighthouse-lens]]" + (function mincan-lighthouse entity-actor none :behavior mincan-lighthouse-lens)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; canyon-scenes ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define-extern canyon-draw-beam (function vector vector none)) -(define-extern canyon-draw-beam-lens (function vector vector none)) -(define-extern canyon-draw-beam-statue (function vector vector none)) +(define-extern canyon-draw-beam + "Draws a particle beam between the two provided [[vector]] points" + (function vector vector none)) +(define-extern canyon-draw-beam-lens + "Draws a particle beam between the two provided [[vector]] points" + (function vector vector none)) +(define-extern canyon-draw-beam-statue + "Draws a particle beam between the two provided [[vector]] points" + (function vector vector none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; vinroom-part ;; @@ -47916,8 +48015,8 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define-extern under-sig-red-shot (function object vector sparticle-launch-state none :behavior scene-player)) -(define-extern under-sig-red-shot-overhead (function object vector sparticle-launch-state none :behavior scene-player)) -(define-extern under-sig-red-shot-grunt (function object vector sparticle-launch-state none :behavior scene-player)) +(define-extern under-sig-red-shot-overhead (function process-tree vector sparticle-launch-state none :behavior scene-player)) +(define-extern under-sig-red-shot-grunt (function vector vector sparticle-launch-state none :behavior scene-player)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; sig-recorder ;; @@ -48058,7 +48157,10 @@ :size-assert #x174 :flag-assert #x3201000174 (:methods - (cpad-elevator-method-49 (_type_ symbol) none 49) + (configure-collision + "Appropriately sets the collision on the elevator + @param collide-with-jak? If set, the elevator will collide with Jak" + (_type_ symbol) none 49) ) ) @@ -48105,20 +48207,23 @@ (:methods (nav-branch-method-9 (_type_) none 9) (nav-branch-method-10 (_type_ object int) none 10) - (nav-branch-method-11 + (get-density "TODO @returns `density * 0.0078125` - is this some kind of trick?" (_type_) float 11) - (nav-branch-method-12 + (get-speed-limit "TODO @returns `speed-limit * 1024.0`" (_type_) float 12) - (nav-branch-method-13 + (get-width "TODO @returns `width * 256.0`" (_type_) float 13) (user-limit-reached? (_type_) symbol 14) - (nav-branch-method-15 "TODO - checks that `dest-node`'s `id` isn't #FFFF" (_type_) symbol 15) + (dest-node-id-at-max? + "@returns if `dest-node`'s `id` is equal to `#FFFF` + @see [[nav-node]]" + (_type_) symbol 15) (nav-branch-method-16 (_type_ float) none 16) (nav-branch-method-17 (_type_ float) none 17) (nav-branch-method-18 (_type_ float) none 18) @@ -48178,7 +48283,7 @@ @returns Nothing, the result will be in `ret`" (_type_ vector) vector 19) (get-angle (_type_) float 20) - (nav-node-method-21 + (get-radius "TODO @returns `radius * 1024.0" (_type_) float 21) @@ -49192,6 +49297,9 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (deftype xz-height-map (structure) + "TODO - not terribly well understood yet, but this is used for the traffic height map + this is primarily used to store a massive amount of bytes in the `data` field + all initialized from static data." ((offset float 3 :offset-assert 0) (x-offset float :offset 0) (y-offset float :offset 4) @@ -51079,7 +51187,9 @@ ;; errol-chal-part ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define-extern city-race-borrow-level-activate (function none)) +(define-extern city-race-borrow-level-activate + "Sets up the `errol-ring-01` and `errol-ring-02` particles" + (function none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; errol-chal ;; @@ -51705,6 +51815,8 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (deftype flag (process-drawable) + "The flag in the ruins mission. + The scale will be linearly-interpolated based on the distance from the camera" () :method-count-assert 21 :size-assert #xc8 @@ -51715,6 +51827,8 @@ ) (deftype ruins-precipice (process-drawable) + "The edge of the ruins tower that the flag stands on + Touching it flips the `play?` field which will trigger the cutscene" ((play? symbol :offset-assert 200) ) :method-count-assert 21 @@ -51725,7 +51839,11 @@ ) ) -(define-extern ruins-slide-sparks (function object vector none)) +(define-extern ruins-slide-sparks + "Generates simple sparks (2D particles) at the location specified. This is used in the cutscene. + @param position The position to render the sparks at + TODO - first arg type?" + (function object vector none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; mechtest-obs ;; @@ -51783,11 +51901,14 @@ :flag-assert #x10003000b0 ) -(define-extern check-drop-level-ruins-rubble (function sparticle-system sparticle-cpuinfo matrix none)) -(define-extern ruins-bird-bob-func (function sparticle-system sparticle-cpuinfo matrix none)) -(define-extern sparticle-ruins-bird-moon (function sparticle-system sparticle-cpuinfo matrix none)) -(define-extern check-drop-level-ruins-tower-userdata-nosplat (function sparticle-system sparticle-cpuinfo matrix none)) -(define-extern check-drop-level-ruins-tower-userdata (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern check-drop-level-ruins-rubble "TODO docs" (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern ruins-bird-bob-func + "Move the bird particles up and down, on a sinusoidal period with a wavelength of 300 frames + TODO - check argument types / what birds?" + (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern sparticle-ruins-bird-moon "TODO - investigate, what even is this?" (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern check-drop-level-ruins-tower-userdata-nosplat "TODO - docs" (function sparticle-system sparticle-cpuinfo vector none)) +(define-extern check-drop-level-ruins-tower-userdata "TODO - docs" (function sparticle-system sparticle-cpuinfo vector none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; breakable-wall ;; @@ -51975,12 +52096,22 @@ (:methods (idle () _type_ :state 20) (die () _type_ :state 21) - (find-ground (_type_) symbol 22) + (find-ground + "TODO - understand the collision query stuff more + @returns whether or not the [[self]] is above the ground" + (_type_) symbol 22) ) ) -(define-extern krew-collection-item-init-by-other (function vector krew-collection-item :behavior krew-collection-item)) -(define-extern krew-collection-item-spawn (function process vector krew-collection-item)) +(define-extern krew-collection-item-init-by-other + "Given a [[vector]] defining it's position, create a [[krew-collection-item]] + @param position The intended position of the item" + (function vector none :behavior krew-collection-item)) +(define-extern krew-collection-item-spawn + "Given a [[vector]] defining it's position, create a [[krew-collection-item]] via [[process-spawn]] + @param proc The [[process]] that is used to spawn the new item + @param position The intended position of the item" + (function process vector krew-collection-item)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ctyasha-obs ;; @@ -52193,6 +52324,7 @@ ) (deftype hiphog-mirror-wf-pt (structure) + "@unused seemingly not used, but probably stood for hiphog-mirror-waveform-point" ((x float :offset-assert 0) (y float :offset-assert 4) ) @@ -52201,11 +52333,29 @@ :flag-assert #x900000008 ) -(define-extern birth-func-rotate-minute (function sparticle-system sparticle-cpuinfo sprite-vec-data-3d sparticle-launcher sparticle-launch-state none)) -(define-extern birth-func-rotate-hour (function sparticle-system sparticle-cpuinfo sprite-vec-data-3d sparticle-launcher sparticle-launch-state none)) -(define-extern birth-func-rotate-second (function sparticle-system sparticle-cpuinfo sprite-vec-data-3d sparticle-launcher sparticle-launch-state none)) -(define-extern *hiphog-mirror-sheen-waveform* (inline-array ripple-wave)) -(define-extern hiphog-mirror-sheen-func (function sparticle-system sparticle-cpuinfo matrix none)) +(define-extern birth-func-rotate-minute + "Determines the position of the minute hand of the hiphog's clock associated with [[time-of-day-proc]] + TODO - check args + Every real second is 1 minute in Jak's time of day" + (function sparticle-system sparticle-cpuinfo sprite-vec-data-3d sparticle-launcher sparticle-launch-state none)) +(define-extern birth-func-rotate-hour + "Determines the position of the hour hand of the hiphog's clock associated with [[time-of-day-proc]] + TODO - check args + Every real minute is 1 hour in Jak's time of day" + (function sparticle-system sparticle-cpuinfo sprite-vec-data-3d sparticle-launcher sparticle-launch-state none)) +(define-extern birth-func-rotate-second + "Determines the position of the second hand of the hiphog's clock associated with [[time-of-day-proc]] + TODO - check args + The clock actually only has 2 hands, this one does not appear to have been used? + Every real second is 1/60th of a second in Jak's time of day" + (function sparticle-system sparticle-cpuinfo sprite-vec-data-3d sparticle-launcher sparticle-launch-state none)) +(define-extern *hiphog-mirror-sheen-waveform* + "A collection of [[ripple-wave]]'s used to apply the effect to the hiphog's mirror" + (inline-array ripple-wave)) +(define-extern hiphog-mirror-sheen-func + "Handles the effect on the hiphogs mirror, which involves using [[*hiphog-mirror-sheen-waveform*]] + TODO on args and some more documentation" + (function sparticle-system sparticle-cpuinfo matrix none)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; hiphog-scenes ;; diff --git a/decompiler/config/jak2/anonymous_function_types.jsonc b/decompiler/config/jak2/anonymous_function_types.jsonc index 44a8080eec..af2cb25fb9 100644 --- a/decompiler/config/jak2/anonymous_function_types.jsonc +++ b/decompiler/config/jak2/anonymous_function_types.jsonc @@ -660,12 +660,12 @@ [19, "(function surface object surface int none :behavior target)"] ], "collection-task": [ - [0, "(function object :behavior task-manager)"], + [0, "(function none :behavior task-manager)"], [1, "(function object :behavior task-manager)"], [2, "(function object :behavior task-manager)"], - [3, "(function object :behavior task-manager)"], + [3, "(function none :behavior task-manager)"], [4, "(function object :behavior task-manager)"], - [5, "(function object :behavior task-manager)"] + [5, "(function none :behavior task-manager)"] ], "pegasus": [ [0, "(function none)"], diff --git a/test/offline/data/jak2/art-group-info.min.json b/decompiler/config/jak2/art-group-info.min.json similarity index 100% rename from test/offline/data/jak2/art-group-info.min.json rename to decompiler/config/jak2/art-group-info.min.json diff --git a/decompiler/config/jak2/inputs.jsonc b/decompiler/config/jak2/inputs.jsonc index 3a10814922..31ecb31208 100644 --- a/decompiler/config/jak2/inputs.jsonc +++ b/decompiler/config/jak2/inputs.jsonc @@ -185,16 +185,19 @@ "streamed_audio_file_names": [], "levels_to_extract": [ + "ATE.DGO", + "ATO.DGO", "CAP.DGO", + "CGA.DGO", + "CGB.DGO", "CIB.DGO", + "CMB.DGO", "CPA.DGO", "CPO.DGO", "CTA.DGO", "CTB.DGO", "CTC.DGO", "CWI.DGO", - "ATE.DGO", - "ATO.DGO", "D3A.DGO", "D3B.DGO", "DG1.DGO", @@ -212,33 +215,16 @@ "KIOSK.DGO", "LDJAKBRN.DGO", "LGUARD.DGO", - "LTRNYSAM.DGO", "LPROTECT.DGO", "LSACK.DGO", + "LTRNYSAM.DGO", "LWIDEA.DGO", "LWIDEB.DGO", "LWIDEC.DGO", - // "ATE.DGO", - // "ATO.DGO", - "DRI.DGO", - "TOC.DGO", - "FOB.DGO", - "SAG.DGO", + "MTN.DGO", "MTX.DGO", - "MTN.DGO", - "TOB.DGO", - "TOA.DGO", - "TOD.DGO", - "TOE.DGO", - "DRILLMTN.DGO", - "FOR.DGO", - "LDJAKBRN.DGO", - "HIDEOUT.DGO", - "KIOSK.DGO", - "DMI.DGO", - "LSACK.DGO", + "ONINTENT.DGO", "ORACLE.DGO", - "MTN.DGO", "PRI.DGO", "RUI.DGO", "SAG.DGO", @@ -251,6 +237,7 @@ "TOB.DGO", "TOC.DGO", "TOD.DGO", + "TOE.DGO", "VI1.DGO", "VIN.DGO" ] diff --git a/decompiler/config/jak2/stack_structures.jsonc b/decompiler/config/jak2/stack_structures.jsonc index 062875d44f..f4ed898a8b 100644 --- a/decompiler/config/jak2/stack_structures.jsonc +++ b/decompiler/config/jak2/stack_structures.jsonc @@ -1612,14 +1612,6 @@ "(code active tomb-sphinx)": [[80, "vector"]], "(trans wait-for-pools tomb-stair-block)": [[32, "event-message-block"]], "drop-pool": [[32, "vector"]], - "(method 24 tomb-water-trap)": [ - [16, "vector"], - [32, "vector"], - [48, "vector"], - [64, "vector"], - [80, "matrix"], - [144, "matrix"] - ], "(method 11 tomb-water-trap)": [ [16, "sync-info-params"], [64, "sphere"] diff --git a/decompiler/config/jak2/type_casts.jsonc b/decompiler/config/jak2/type_casts.jsonc index e8f6b49827..96bb2a3cf6 100644 --- a/decompiler/config/jak2/type_casts.jsonc +++ b/decompiler/config/jak2/type_casts.jsonc @@ -5372,8 +5372,8 @@ "(anon-function 2 under-scenes)": [[21, "v0", "target"]], "hiphog-mirror-sheen-func": [ [[50, 64], "a2", "ripple-wave"], - [49, "a2", "(inline-array ripple-wave)"], - [48, "a2", "ripple-wave"] + [48, "a2", "ripple-wave"], + [49, "a2", "(inline-array ripple-wave)"] ], "(anon-function 7 outro-scenes)": [ [13, "t9", "(function mood-context none)"] @@ -5752,10 +5752,7 @@ [25, "v1", "float"] ], "(method 11 hoverboard-training-manager)": [["_stack_", 16, "res-tag"]], - "(trans idle krew-collection-item)": [ - [28, "a1", "process-drawable"], - [29, "a0", "collide-shape"] - ], + "(trans idle krew-collection-item)": [[28, "a1", "vehicle"]], "(method 56 pegasus)": [[[5, 10], "v1", "attack-info"]], "(post idle pegasus)": [[11, "t9", "(function none)"]], "(code notice pegasus)": [ diff --git a/decompiler/config/jak2/var_names.jsonc b/decompiler/config/jak2/var_names.jsonc index c2f319bf76..060947af50 100644 --- a/decompiler/config/jak2/var_names.jsonc +++ b/decompiler/config/jak2/var_names.jsonc @@ -2276,10 +2276,14 @@ } }, "(method 0 joint-exploder-tuning)": { - "vars": { "v0-0": ["v0-0", "joint-exploder-tuning"] } + "vars": { + "v0-0": ["v0-0", "joint-exploder-tuning"] + } }, "(method 181 gator)": { - "vars": { "s4-0": ["s4-0", "art-joint-anim"] } + "vars": { + "s4-0": ["s4-0", "art-joint-anim"] + } }, "(code target-running-attack)": { "vars": { "t1-6": ["t1-6", "sound-name"] } @@ -2456,5 +2460,506 @@ }, "(method 195 bot)": { "args": ["obj", "fproc"] + }, + "(method 11 hip-door-b)": { + "vars": { + "s5-0": "cshape", + "s4-0": "cshape-group", + "v1-8": "cshape-mesh", + "v1-10": "cshape-mesh2", + "v1-13": "root" + }, + "args": ["obj", "entiy"] + }, + "(method 11 hip-mirror)": { + "args": ["obj", "entity"] + }, + "hiphog-activate": { + "vars": { + "a0-1": "mirror" + } + }, + "birth-func-rotate-minute": { + "vars": { + "gp-0": "quat", + "a1-1": "temp-vec", + "v1-0": "tod", + "f0-1": "curr-minutes" + } + }, + "birth-func-rotate-hour": { + "vars": { + "gp-0": "quat", + "a1-1": "temp-vec", + "v1-0": "tod", + "f0-1": "curr-hours" + } + }, + "birth-func-rotate-second": { + "vars": { + "gp-0": "quat", + "a1-1": "temp-vec", + "v1-0": "tod", + "f0-1": "curr-seconds" + } + }, + "hiphog-mirror-sheen-func": { + "vars": { + "a2-2": "curr-ripple-wave", + "v1-4": "prev-ripple-wave" + } + }, + "(method 22 krew-collection-item)": { + "vars": { + "gp-0": "query", + "s4-0": "on-ground?", + "v1-5": "_query", + "f0-6": "dist" + } + }, + "(trans idle krew-collection-item)": { + "vars": { + "v1-0": "target", + "gp-0": "vec", + "f0-1": "dist-from-target", + "f1-1": "pickup-dist", + "a1-4": "vehicle" + } + }, + "(code idle krew-collection-item)": { + "vars": { + "gp-0": "beam-params", + "v1-0": "beam-location" + } + }, + "krew-collection-item-spawn": { + "vars": { + "gp-0": "new-krew-item", + "v1-1": "new-proc" + }, + "args": ["proc", "position"] + }, + "krew-collection-item-init-by-other": { + "args": ["position"] + }, + "(anon-function 5 collection-task)": { + "vars": { + "s5-0": "traffic-obj-params", + "gp-0": "traffic-manager" + } + }, + "(anon-function 3 collection-task)": { + "vars": { + "gp-0": "task-count", + "a0-6": "krew-item" + } + }, + "(anon-function 2 collection-task)": { + "vars": { + "f0-0": "min-start-distance", + "v1-2": "moved-beyond-start?" + } + }, + "check-drop-level-ruins-rubble": { + "vars": { + "gp-0": "vec" + } + }, + "check-drop-level-ruins-tower-userdata-nosplat": { + "vars": { + "s3-0": "vec" + } + }, + "check-drop-level-ruins-tower-userdata": { + "vars": { + "s3-0": "vec" + } + }, + "ruins-slide-sparks": { + "args": ["arg0", "position"], + "vars": { + "t9-0": "launch-func", + "a0-1": "2d-sys", + "v1-1": "sp-launcher", + "a2-0": "matrix" + } + }, + "(post idle flag)": { + "vars": { + "f0-1": "flag-scale" + } + }, + "(method 11 ruins-precipice)": { + "vars": { + "s4-0": "cshape", + "v1-2": "cshape-mesh" + } + }, + "(method 49 cpad-elevator)": { + "vars": { + "v1-3": "prim" + }, + "args": ["obj", "collide-with-jak?"] + }, + "(method 45 cpad-elevator)": { + "vars": { + "gp-0": "target", + "a0-2": "target-proc", + "v1-1": "target-pos", + "gp-2": "dist-from-center" + } + }, + "(method 43 cpad-elevator)": { + "args": ["obj", "vec", "point-a", "point-b"], + "vars": { + "s4-0": "path-point-a", + "a0-3": "path-point-b", + "v1-3": "elevator-trans" + } + }, + "(enter running cpad-elevator)": { + "vars": { + "t9-0": "func" + } + }, + "(code running cpad-elevator)": { + "vars": { + "gp-0": "frame-counter" + } + }, + "(exit running cpad-elevator)": { + "vars": { + "t9-3": "func" + } + }, + "(enter arrived cpad-elevator)": { + "vars": { + "t9-0": "func" + } + }, + "(method 33 cpad-elevator)": { + "vars": { + "s5-0": "last-path-index" + } + }, + "(method 31 cpad-elevator)": { + "vars": { + "s5-0": "cshape-moving", + "s4-0": "prim-group", + "v1-15": "prim-mesh-for-jak", + "v1-17": "prim-mesh", + "v1-20": "root-prim" + } + }, + "under-sig-red-shot-overhead": { + "vars": { + "s4-0": "part", + "t9-1": "activate-func" + } + }, + "under-sig-red-shot-grunt": { + "vars": { + "a2-2": "beam-end", + "s5-0": "part", + "s4-0": "activate-func" + }, + "args": ["arg0", "arg1", "arg2"] + }, + "(anon-function 2 under-scenes)": { + "vars": { + "gp-0": "vec1", + "s5-0": "vec2" + } + }, + "canyon-draw-beam": { + "args": ["point-a", "point-b"], + "vars": { + "a2-1": "displacement" + } + }, + "canyon-draw-beam-lens": { + "args": ["point-a", "point-b"], + "vars": { + "a2-1": "displacement" + } + }, + "canyon-draw-beam-statue": { + "args": ["point-a", "point-b"], + "vars": { + "a2-1": "displacement" + } + }, + "(method 24 water-anim-mincan)": { + "vars": { + "t9-0": "func", + "v1-2": "ripple-control" + } + }, + "mincan-lighthouse-lens-init-by-other": { + "args": ["arg0", "entity"] + }, + "(method 11 mincan-lens)": { + "vars": { + "s4-0": "cshape", + "s3-0": "prim-group", + "v1-8": "mesh-1", + "v1-10": "mesh-2", + "v1-12": "mesh-3", + "v1-14": "mesh-4", + "v1-16": "mesh-5", + "v1-18": "mesh-6", + "v1-20": "mesh-7", + "v1-23": "root-prim" + } + }, + "(method 3 water-anim-mincan)": { + "vars": { + "t9-0": "func" + } + }, + "(method 3 mincan-lighthouse-lens)": { + "vars": { + "t9-0": "func" + } + }, + "(method 30 gun-dummy)": { + "vars": { + "f0-0": "total-time", + "v1-0": ["curr-frame", "tpath-control-frame"] + } + }, + "(method 29 gun-dummy)": { + "vars": { + "s4-0": "path", + "s5-0": "curr-path-command", + "a1-0": "event-msg-block", + "v0-1": "ret" + } + }, + "(method 20 gun-dummy)": { + "vars": { + "v1-0": "root", + "v0-0": "vec" + } + }, + "(event idle gun-dummy)": { + "vars": { + "s5-0": "attack-info", + "s5-1": "proc-draw", + "gp-1": "cshape" + } + }, + "(post idle gun-dummy)": { + "vars": { + "gp-2": "vec-to-target" + } + }, + "(method 28 gun-dummy)": { + "vars": { + "s5-0": "cshape-moving", + "v1-6": "prim-mesh", + "v1-9": "root-prim" + } + }, + "(method 31 gun-dummy)": { + "vars": { + "v1-19": "path" + } + }, + "(method 32 gun-dummy-a)": { + "vars": { + "v1-1": "root-prim", + "s5-1": "exploder-tuning" + } + }, + "(method 32 gun-dummy-b)": { + "vars": { + "s5-1": "exploder-tuning", + "v1-1": "root-prim" + } + }, + "(method 32 gun-dummy-c)": { + "vars": { + "v1-1": "root-prim", + "s5-1": "exploder-tuning" + } + }, + "(method 32 gun-dummy-big)": { + "vars": { + "v1-1": "root-prim", + "s5-1": "exploder-tuning" + } + }, + "(method 32 gun-dummy-gold)": { + "vars": { + "v1-1": "root-prim", + "s5-1": "exploder-tuning" + } + }, + "(method 32 gun-dummy-peace)": { + "vars": { + "v1-1": "root-prim", + "s5-1": "exploder-tuning" + } + }, + "(method 32 gun-cit-a)": { + "vars": { + "v1-1": "root-prim", + "s5-1": "exploder-tuning" + } + }, + "(method 32 gun-cit-b)": { + "vars": { + "v1-1": "root-prim", + "s5-1": "exploder-tuning" + } + }, + "(method 32 gun-cit-c)": { + "vars": { + "v1-1": "root-prim", + "s5-1": "exploder-tuning" + } + }, + "(method 32 gun-cit-d)": { + "vars": { + "v1-1": "root-prim", + "s5-1": "exploder-tuning" + } + }, + "gun-dummy-init-by-other": { + "args": ["manager", "path-info"] + }, + "gun-dummy-a-init-by-other": { + "args": ["manager", "path-info"] + }, + "gun-dummy-b-init-by-other": { + "args": ["manager", "path-info"] + }, + "gun-dummy-c-init-by-other": { + "args": ["manager", "path-info"] + }, + "gun-dummy-big-init-by-other": { + "args": ["manager", "path-info"] + }, + "gun-dummy-gold-init-by-other": { + "args": ["manager", "path-info"] + }, + "gun-dummy-peace-init-by-other": { + "args": ["manager", "path-info"] + }, + "gun-cit-a-init-by-other": { + "args": ["manager", "path-info"] + }, + "gun-cit-b-init-by-other": { + "args": ["manager", "path-info"] + }, + "gun-cit-c-init-by-other": { + "args": ["manager", "path-info"] + }, + "gun-cit-d-init-by-other": { + "args": ["manager", "path-info"] + }, + "attach-pod-part": { + "vars": { + "gp-0": "sub-change-time" + } + }, + "(event idle market-object)": { + "vars": { + "a1-2": "attack-info", + "a2-1": "attacking-proc" + } + }, + "(code die market-object)": { + "vars": { + "v1-3": "root-prim", + "gp-1": "frame" + } + }, + "(method 11 market-basket-a)": { + "vars": { + "s4-0": "cshape", + "v1-2": "prim-mesh", + "v1-5": "root-prim" + } + }, + "(method 11 market-basket-b)": { + "vars": { + "s4-0": "cshape", + "v1-2": "prim-mesh", + "v1-5": "root-prim" + } + }, + "(method 11 market-crate)": { + "vars": { + "s4-0": "cshape", + "v1-5": "root-prim", + "v1-2": "prim-mesh" + } + }, + "(method 11 market-sack-a)": { + "vars": { + "s4-0": "cshape", + "v1-2": "prim-mesh", + "v1-5": "root-prim" + } + }, + "(method 11 market-sack-b)": { + "vars": { + "s4-0": "cshape", + "v1-2": "prim-mesh", + "v1-5": "root-prim" + } + }, + "market-activate": { + "vars": { + "v1-0": "name", + "gp-0": "int-arr" + } + }, + "check-drop-level-stadium-drop-userdata": { + "vars": { + "s3-0": "vec" + } + }, + "(event idle fort-floor-spike)": { + "vars": { + "s4-0": "proc-draw", + "s3-1": "spike-quat", + "s4-1": "touched-from-dir", + "a1-8": "response", + "v1-11": "attack-info", + "v0-0": "frame-count" + } + }, + "(method 22 fort-floor-spike-c)": { + "vars": { + "s4-0": "prim-group", + "s5-0": "cshape-moving", + "sv-16": "prim-mesh", + "v1-24": "root-prim" + } + }, + "(method 21 fort-floor-spike-c)": { + "vars": { + "a0-3": "channel" + } + }, + "movie-consite-metalkor-shot-draw-fire": { + "vars": { + "s5-1": "displacement" + } + }, + "(exit zap canyon-lightning-thingy)": { + "vars": { + "a0-2": "control", + "a1-0": "mode", + "a2-1": "control-mode" + } + }, + "(method 7 canyon-lightning-thingy)": { + "vars": { + "v1-0": "index" + } } } \ No newline at end of file diff --git a/decompiler/config/jak2_ntsc_v1.jsonc b/decompiler/config/jak2_ntsc_v1.jsonc index eed09f656f..74d1631b26 100644 --- a/decompiler/config/jak2_ntsc_v1.jsonc +++ b/decompiler/config/jak2_ntsc_v1.jsonc @@ -90,6 +90,7 @@ "art_info_file": "decompiler/config/jak2/art_info.jsonc", "import_deps_file": "decompiler/config/jak2/import_deps.jsonc", "all_types_file": "decompiler/config/jak2/all-types.gc", + "art_group_dump_file": "decompiler/config/jak2/art-group-info.min.json", // optional: a predetermined object file name map from a file. diff --git a/decompiler/main.cpp b/decompiler/main.cpp index 6637753f0a..597add1bd1 100644 --- a/decompiler/main.cpp +++ b/decompiler/main.cpp @@ -177,8 +177,7 @@ int main(int argc, char** argv) { config.write_hex_near_instructions); } - // process art groups (used in decompilation) - if (config.decompile_code || config.process_art_groups) { + if (config.process_art_groups) { db.extract_art_info(); // dumb art info to json if requested if (config.dump_art_group_info) { @@ -188,6 +187,14 @@ int main(int argc, char** argv) { file_util::write_text_file(file_name, json.dump(-1)); lg::info("[DUMP] Dumped art group info to {}", file_name.string()); } + } else if (!config.art_group_info_dump.empty()) { + // process art groups (used in decompilation) + // - if the config has a path to the art info dump, just use that + // - otherwise (or if we want to dump it fresh) extract it + db.dts.art_group_info = config.art_group_info_dump; + } else { + lg::error("`process_art_groups` was false and no art-group-info dump was provided!"); + return 1; } // main decompile. diff --git a/decompiler/util/DecompilerTypeSystem.cpp b/decompiler/util/DecompilerTypeSystem.cpp index ec30a41799..4b5353dd45 100644 --- a/decompiler/util/DecompilerTypeSystem.cpp +++ b/decompiler/util/DecompilerTypeSystem.cpp @@ -6,6 +6,7 @@ #include "common/log/log.h" #include "common/type_system/defenum.h" #include "common/type_system/deftype.h" +#include "common/util/string_util.h" #include "decompiler/Disasm/Register.h" @@ -60,7 +61,7 @@ void DecompilerTypeSystem::parse_type_defs(const std::vector& file_ rest = &cdr(*rest); // check for docstring if (rest->is_pair() && car(*rest).is_string()) { - symbol_metadata.docstring = car(*rest).as_string()->data; + symbol_metadata.docstring = str_util::trim_newline_indents(car(*rest).as_string()->data); rest = &cdr(*rest); } auto sym_type = car(*rest); diff --git a/goal_src/jak2/engine/ai/enemy.gc b/goal_src/jak2/engine/ai/enemy.gc index 633783687b..20a7fdb06e 100644 --- a/goal_src/jak2/engine/ai/enemy.gc +++ b/goal_src/jak2/engine/ai/enemy.gc @@ -42,29 +42,29 @@ (defmethod get-rand-float-range enemy ((obj enemy) (low float) (high float)) "@param low The lower bound of the range (inclusive) - @param high The upper bound of the range (exclusive) - @returns A random float in the specified range" +@param high The upper bound of the range (exclusive) +@returns A random float in the specified range" (+ low (* (rand-vu) (- high low))) ) (defmethod get-rand-int enemy ((obj enemy) (high int)) "@param high The upper bound of the range (exclusive) - @returns a random integer in the range 0 to `high` - @see [[rand-vu]]" +@returns a random integer in the range 0 to `high` +@see [[rand-vu]]" (the int (* (rand-vu) (the float high))) ) (defmethod get-rand-int-range enemy ((obj enemy) (low int) (high int)) "@param low The lower bound of the range (inclusive) - @param high The upper bound of the range (exclusive) - @returns A random integer in the specified range" +@param high The upper bound of the range (exclusive) +@returns A random integer in the specified range" (+ low (the int (* (rand-vu) (the float (+ (- 1 low) high))))) ) (defmethod rng-hit? enemy ((obj enemy) (chance float)) "TODO - not the best name - @param chance The value to compare ([[>=]]) with the result from [[rand-vu]]. - @returns If `chance` is greater than the random draw" +@param chance The value to compare ([[>=]]) with the result from [[rand-vu]]. +@returns If `chance` is greater than the random draw" (>= chance (rand-vu)) ) @@ -1234,6 +1234,12 @@ ) (defmethod init-from-entity! enemy ((obj enemy) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (enemy-method-114 obj) (process-drawable-from-entity! obj arg0) (enemy-method-115 obj) @@ -2659,7 +2665,7 @@ (defmethod enemy-method-92 enemy ((obj enemy) (arg0 int) (arg1 nav-poly)) "TODO - nav-poly is a guess - @abstract" +@abstract" 0 (none) ) diff --git a/goal_src/jak2/engine/anim/aligner.gc b/goal_src/jak2/engine/anim/aligner.gc index 4a4f178839..6dcc7e310d 100644 --- a/goal_src/jak2/engine/anim/aligner.gc +++ b/goal_src/jak2/engine/anim/aligner.gc @@ -144,10 +144,10 @@ (defmethod align! align-control ((obj align-control) (options align-opts) (x float) (y float) (z float)) "As long as [[align-flags::0]] is not set call [[process-drawable::16]] on the process being controlled - using the arguments passed to construct a [[vector]] - <`x`, `y`, `z`, 1.0> +using the arguments passed to construct a [[vector]] - <`x`, `y`, `z`, 1.0> - @returns the `root` of the [[process-drawable]] after the method returns - @see [[process-drawable::16]]" +@returns the `root` of the [[process-drawable]] after the method returns +@see [[process-drawable::16]]" (when (not (logtest? (-> obj flags) (align-flags disabled))) (let* ((process (-> obj process)) (method-call (method-of-object process apply-alignment)) diff --git a/goal_src/jak2/engine/camera/cam-interface.gc b/goal_src/jak2/engine/camera/cam-interface.gc index 36db898cc8..f08b0a8abb 100644 --- a/goal_src/jak2/engine/camera/cam-interface.gc +++ b/goal_src/jak2/engine/camera/cam-interface.gc @@ -41,9 +41,9 @@ (defun camera-pos () "Returns the `trans` vector from whatever is first determined to exist: - - [[*camera-combiner*]] - - [[*math-camera*]] - - else, [[*camera-dummy-vector*]]" +- [[*camera-combiner*]] +- [[*math-camera*]] +- else, [[*camera-dummy-vector*]]" (cond (*camera-combiner* (-> *camera-combiner* trans) diff --git a/goal_src/jak2/engine/common_objs/base-plat.gc b/goal_src/jak2/engine/common_objs/base-plat.gc index daa4a384b1..4067f8f336 100644 --- a/goal_src/jak2/engine/common_objs/base-plat.gc +++ b/goal_src/jak2/engine/common_objs/base-plat.gc @@ -36,14 +36,16 @@ (stop-bouncing! (_type_) none 28) (start-bouncing! (_type_) none :behavior base-plat 29) (get-art-group (_type_) art-group 30) - (base-plat-method-31 (_type_) none 31) + (init-plat-collision! (_type_) none 31) (base-plat-method-32 (_type_) none 32) - (base-plat-method-33 (_type_) none 33) + (init-plat! (_type_) none 33) ) ) -(defmethod base-plat-method-33 base-plat ((obj base-plat)) +(defmethod init-plat! base-plat ((obj base-plat)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." 0 (none) ) @@ -59,8 +61,8 @@ (defmethod start-bouncing! base-plat ((obj base-plat)) "Sets `bouncing` to [[#t]] and sets up the clock to periodically bounce - and translate the platform via the `smush` - @see [[smush-control]]" +and translate the platform via the `smush` +@see [[smush-control]]" (activate! (-> obj smush) -1.0 60 150 1.0 1.0 (-> self clock)) (set! (-> obj bounce-time) (-> self clock frame-counter)) (set! (-> obj bouncing) #t) @@ -75,8 +77,8 @@ ;; WARN: new jak 2 until loop case, check carefully (defbehavior plat-code base-plat () "After calling [[transform-post]] for 2 consecutive frames, put the process to sleep if it's not bouncing - otherwise, continue bouncing...forever! - @see [[transform-post]]" +otherwise, continue bouncing...forever! +@see [[transform-post]]" (transform-post) (suspend) (transform-post) @@ -97,9 +99,9 @@ (defbehavior plat-trans base-plat () "If the platform is `bouncing`, move the platform accordingly with the [[smush-control]] - - If the amplitude of the `smush` has hit `0.0` then stop bouncing +- If the amplitude of the `smush` has hit `0.0` then stop bouncing - If we aren't bouncing however, TODO - CSHAPE" +If we aren't bouncing however, TODO - CSHAPE" (rider-trans) (cond ((-> self bouncing) @@ -145,7 +147,7 @@ ;; WARN: Return type mismatch none vs object. (defbehavior plat-event base-plat ((proc process) (arg1 int) (event-type symbol) (event event-message-block)) "Handles platform related events. Presently all this does is: - - if `event-type` is [['bonk]], then call [[base-plat:29]]" +- if `event-type` is [['bonk]], then call [[base-plat:29]]" (the-as object (case event-type (('bonk) (start-bouncing! self) @@ -188,9 +190,9 @@ ;; WARN: Return type mismatch symbol vs object. (defbehavior eco-door-event-handler eco-door ((proc process) (arg1 int) (event-type symbol) (event event-message-block)) "If the `event-type` is `'trigger`, flip the `locked` flag on the door - and play the respective sound +and play the respective sound - @unused - likely a leftover from Jak 1" +@unused - likely a leftover from Jak 1" (the-as object (case event-type (('trigger) (set! (-> self locked) (not (-> self locked))) @@ -342,7 +344,7 @@ eco-door-event-handler (defmethod lock-according-to-task! eco-door ((obj eco-door)) "If the associated subtask is completed, lock the door if [[eco-door-flags:0]] is set - otherwise, lock it if [[eco-door-flags:0]] is set" +otherwise, lock it if [[eco-door-flags:0]] is set" (when (-> obj state-actor) (if (logtest? (-> obj state-actor extra perm status) (entity-perm-status subtask-complete)) (set! (-> obj locked) (logtest? (-> obj flags) (eco-door-flags ecdf01))) @@ -383,6 +385,12 @@ eco-door-event-handler ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! eco-door ((obj eco-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (eco-door-method-25 obj) (process-drawable-from-entity! obj arg0) (let ((door-scale (res-lump-float (-> obj entity) 'scale :default 1.0))) diff --git a/goal_src/jak2/engine/common_objs/basebutton.gc b/goal_src/jak2/engine/common_objs/basebutton.gc index dbc9ecf1f2..a45c4ca3af 100644 --- a/goal_src/jak2/engine/common_objs/basebutton.gc +++ b/goal_src/jak2/engine/common_objs/basebutton.gc @@ -55,7 +55,10 @@ ) -(defskelgroup skel-generic-button mtn-dice-button 0 3 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 3)) +(defskelgroup skel-generic-button mtn-dice-button mtn-dice-button-lod0-jg mtn-dice-button-idle-ja + ((mtn-dice-button-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 3) + ) (defmethod move-to! basebutton ((obj basebutton) (vec vector) (quat quaternion)) (logclear! (-> obj button-status) (button-status button-status-2)) @@ -295,9 +298,9 @@ (defmethod send-event! basebutton ((obj basebutton) (event-type symbol)) "Prepares an [[event-message-block]] using the provided type to send an event to: - - the `notify-actor` - - every [[entity-actor]] in the `actor-group` array - @see [[entity-actor]]" +- the `notify-actor` +- every [[entity-actor]] in the `actor-group` array +@see [[entity-actor]]" (when event-type (let ((event (new 'stack-no-clear 'event-message-block))) (set! (-> event from) (process->ppointer self)) @@ -420,6 +423,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! basebutton ((obj basebutton) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (reset! obj) (set! (-> obj button-id) -1) diff --git a/goal_src/jak2/engine/common_objs/blocking-plane.gc b/goal_src/jak2/engine/common_objs/blocking-plane.gc index d5c353e052..aee3701b90 100644 --- a/goal_src/jak2/engine/common_objs/blocking-plane.gc +++ b/goal_src/jak2/engine/common_objs/blocking-plane.gc @@ -162,6 +162,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! blocking-plane ((obj blocking-plane) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'path-control obj 'path 0.0 (the-as entity #f) #f)) (f30-0 (res-lump-float (-> obj entity) 'height :default 122880.0)) ) diff --git a/goal_src/jak2/engine/common_objs/collectables.gc b/goal_src/jak2/engine/common_objs/collectables.gc index ea8dc89bd4..2a3a27c1e9 100644 --- a/goal_src/jak2/engine/common_objs/collectables.gc +++ b/goal_src/jak2/engine/common_objs/collectables.gc @@ -1308,6 +1308,12 @@ (defmethod init-from-entity! eco-yellow ((obj eco-yellow) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type eco-yellow) (-> *FACT-bank* eco-single-inc)) (none) ) @@ -1322,6 +1328,12 @@ (defmethod init-from-entity! eco-red ((obj eco-red) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type eco-red) (-> *FACT-bank* eco-single-inc)) (none) ) @@ -1336,6 +1348,12 @@ (defmethod init-from-entity! eco-blue ((obj eco-blue) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type eco-blue) (-> *FACT-bank* eco-single-inc)) (none) ) @@ -1350,6 +1368,12 @@ (defmethod init-from-entity! eco-green ((obj eco-green) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type eco-green) (-> *FACT-bank* eco-single-inc)) (none) ) @@ -1364,6 +1388,12 @@ (defmethod init-from-entity! health ((obj health) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type health) (-> *FACT-bank* health-default-inc)) (none) ) @@ -1403,6 +1433,12 @@ ) (defmethod init-from-entity! eco-pill ((obj eco-pill) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type eco-pill-green) (-> *FACT-bank* health-small-inc)) (none) ) @@ -1620,6 +1656,12 @@ ) (defmethod init-from-entity! money ((obj money) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (initialize-allocations obj) (process-drawable-from-entity! obj (-> obj entity)) (initialize-options obj 0 1024.0 (the-as fact-info #f)) @@ -2093,6 +2135,12 @@ ) (defmethod init-from-entity! trick-point ((obj trick-point) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (initialize-allocations obj) (process-drawable-from-entity! obj (-> obj entity)) (initialize-options obj 0 1024.0 (the-as fact-info #f)) @@ -2368,6 +2416,12 @@ ) (defmethod init-from-entity! eco ((obj eco) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((v1-1 (res-lump-value (-> obj entity) 'eco-info uint128 :time -1000000000.0))) (set! (-> obj type) (cond ((= (the-as uint v1-1) 3) diff --git a/goal_src/jak2/engine/common_objs/conveyor.gc b/goal_src/jak2/engine/common_objs/conveyor.gc index 1517096b48..8d66ab6354 100644 --- a/goal_src/jak2/engine/common_objs/conveyor.gc +++ b/goal_src/jak2/engine/common_objs/conveyor.gc @@ -104,7 +104,7 @@ ;; WARN: Return type mismatch object vs ambient-sound. (defmethod set-and-get-ambient-sound! conveyor ((obj conveyor)) "So long as [[actor-option::16]] is not set, fetch the [[ambient-sound]] for the [[conveyor]] - and return it as well. Otherwise, set it to `0`" +and return it as well. Otherwise, set it to `0`" (let ((actor-options (res-lump-value (-> obj entity) 'options actor-option :time -1000000000.0))) (the-as ambient-sound @@ -381,6 +381,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! conveyor ((obj conveyor) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (reset-root! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj (the-as skeleton-group (get-art-group obj)) (the-as pair 0)) diff --git a/goal_src/jak2/engine/common_objs/crates.gc b/goal_src/jak2/engine/common_objs/crates.gc index d81e2fa4ee..2544898609 100644 --- a/goal_src/jak2/engine/common_objs/crates.gc +++ b/goal_src/jak2/engine/common_objs/crates.gc @@ -1196,6 +1196,12 @@ ) (defmethod init-from-entity! crate ((obj crate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (crate-init! obj arg0) (skel-init! obj) (crate-method-38 obj) diff --git a/goal_src/jak2/engine/common_objs/elevator.gc b/goal_src/jak2/engine/common_objs/elevator.gc index 93bf9849ef..afa49171ac 100644 --- a/goal_src/jak2/engine/common_objs/elevator.gc +++ b/goal_src/jak2/engine/common_objs/elevator.gc @@ -35,8 +35,8 @@ (defenum elevator-status :type uint64 :bitfield #t - (elevator-status-0) - (elevator-status-1) + (waiting-to-descend) + (waiting-to-ascend) (moving) (elevator-status-3) (elevator-status-4) @@ -111,12 +111,12 @@ (arrived () _type_ :state 37) (elevator-method-38 (_type_) none 38) (calc-dist-between-points! (_type_ int int) none 39) - (elevator-method-40 (_type_) object 40) + (activate-elevator (_type_) none 40) (init-defaults! (_type_) none 41) - (clear-ambient-sound! (_type_) none 42) - (elevator-method-43 (_type_ vector float float) symbol 43) + (set-ambient-sound! (_type_) none 42) + (move-between-points (_type_ vector float float) symbol 43) (elevator-method-44 (_type_) symbol 44) - (elevator-method-45 (_type_) symbol 45) + (commited-to-ride? (_type_) symbol 45) (move-to-next-point! (_type_) none 46) (find-closest-point-in-path! (_type_ vector path-step symbol symbol) symbol 47) (elevator-method-48 (_type_) none 48) @@ -124,7 +124,12 @@ ) -(defmethod elevator-method-43 elevator ((obj elevator) (arg0 vector) (arg1 float) (arg2 float)) +(defmethod move-between-points elevator ((obj elevator) (arg0 vector) (arg1 float) (arg2 float)) + "Move between two points on the elevator's path +@param vec TODO not sure +@param point-a The first point fetched from the elevator's path +@param point-b The second point fetched from the path +@see [[path-control]] and [[elevator]]" #f ) @@ -164,11 +169,11 @@ (defmethod init-defaults! elevator ((obj elevator)) "Initializes default settings related to the [[elevator]]: - - `elevator-xz-threshold` - - `elevator-y-threshold` - - `elevator-start-pos` - - `elevator-move-rate` - - `elevator-flags`" +- `elevator-xz-threshold` +- `elevator-y-threshold` +- `elevator-start-pos` +- `elevator-move-rate` +- `elevator-flags`" (let ((entity (-> obj entity))) (set! (-> obj params xz-threshold) ((method-of-object entity get-property-value-float) entity @@ -232,8 +237,8 @@ (defun ease-value-in-out ((value float) (step-amount float)) "TODO - the math in this function is full of duplication and isn't totally clear - but if the name is to be believed, it's to slow a values grow at the beginning and end of it's range - which is obviously useful for an elevator." +but if the name is to be believed, it's to slow a values grow at the beginning and end of it's range +which is obviously useful for an elevator." (let* ((step step-amount) (f4-0 (- 1.0 step-amount)) (f3-0 (/ step (- 1.0 f4-0))) @@ -392,7 +397,7 @@ (= (-> self sticky-player-last-ride-time) (-> self clock frame-counter)) ) (('point-inside-shaft?) - (elevator-method-43 self (the-as vector (-> event param 1)) (-> self bottom-top 1) (-> self bottom-top 0)) + (move-between-points self (the-as vector (-> event param 1)) (-> self bottom-top 1) (-> self bottom-top 0)) ) (('going-down?) (< (-> (get-point-in-path! (-> self path) (new 'stack-no-clear 'vector) (-> self move-pos 1) 'interp) y) @@ -419,13 +424,13 @@ (defmethod find-closest-point-in-path! elevator ((obj elevator) (arg0 vector) (arg1 path-step) (arg2 symbol) (arg3 symbol)) "Finds and sets the provided [[path-step]]'s `next-pos` field to the vertex index in the path which is closest to - the provided [[vector]] +the provided [[vector]] - @param vec The point at which distance calculations are based off - @param! next-step If a point is found, `next-pos` will be set to the correct point - @param arg2 TODO - @param arg3 TODO - @returns [[#t]] if a point in the path was found" +@param vec The point at which distance calculations are based off +@param! next-step If a point is found, `next-pos` will be set to the correct point +@param arg2 TODO +@param arg3 TODO +@returns [[#t]] if a point in the path was found" (local-vars (path-point vector)) (let ((elev-params (-> obj params)) (smallest-dist 0.0) @@ -470,20 +475,20 @@ ) (the-as symbol - (and target (elevator-method-43 obj (get-trans target 0) (-> obj move-pos 0) (-> obj move-pos 1))) + (and target (move-between-points obj (get-trans target 0) (-> obj move-pos 0) (-> obj move-pos 1))) ) ) ) -(defmethod elevator-method-45 elevator ((obj elevator)) - "@returns Stub, or always returns [[#t]]" +(defmethod commited-to-ride? elevator ((obj elevator)) + "@returns if the target is considered within the elevator area enough to begin descending/ascending" #t ) (defmethod move-to-next-point! elevator ((obj elevator)) "If the [[*target*]] is in a valid state and there is a point to transition to in the elevator's path - do so. - @see [[elevator::47]]" +do so. +@see [[elevator::47]]" (local-vars (zero float)) (let ((target *target*)) (when (and target @@ -544,8 +549,8 @@ :event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block)) (case event-type (('ridden) - (if (elevator-method-45 self) - (logior! (-> self elevator-status) (elevator-status elevator-status-0)) + (if (commited-to-ride? self) + (logior! (-> self elevator-status) (elevator-status waiting-to-descend)) ) (elevator-event proc arg1 event-type event) ) @@ -556,7 +561,7 @@ ) :enter (behavior () (set! (-> self ride-timer) (-> self clock frame-counter)) - (logclear! (-> self elevator-status) (elevator-status elevator-status-0 moving)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-descend moving)) (logior! (-> self mask) (process-mask actor-pause)) (if (nonzero? (-> self sound)) (update-vol! (-> self sound) 0.0) @@ -565,7 +570,7 @@ ) :trans (behavior () (plat-trans) - (when (not (logtest? (-> self elevator-status) (elevator-status elevator-status-0))) + (when (not (logtest? (-> self elevator-status) (elevator-status waiting-to-descend))) (set! (-> self ride-timer) (-> self clock frame-counter)) (-> self params) (if (and (logtest? (-> self params flags) (elevator-flags elevator-flags-0)) @@ -585,7 +590,7 @@ ) :code (the-as (function none :behavior elevator) sleep-code) :post (behavior () - (logclear! (-> self elevator-status) (elevator-status elevator-status-0)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-descend)) (debug-draw (-> self path)) (plat-post) (none) @@ -600,7 +605,7 @@ #t ) (('player-ridden?) - (logtest? (-> self elevator-status) (elevator-status elevator-status-0)) + (logtest? (-> self elevator-status) (elevator-status waiting-to-descend)) ) (else (elevator-event proc arg1 event-type event) @@ -611,7 +616,7 @@ (if (not (logtest? (-> self params flags) (elevator-flags elevator-flags-7))) (process-entity-status! self (entity-perm-status no-kill) #t) ) - (logclear! (-> self elevator-status) (elevator-status elevator-status-1)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-ascend)) (when (logtest? (-> self params flags) (elevator-flags elevator-flags-2)) (logclear! (-> self params flags) (elevator-flags elevator-flags-2)) (logior! (-> self params flags) (elevator-flags elevator-flags-0)) @@ -665,7 +670,7 @@ (none) ) :trans (behavior () - (if (and (not (logtest? (-> self elevator-status) (elevator-status elevator-status-1))) + (if (and (not (logtest? (-> self elevator-status) (elevator-status waiting-to-ascend))) (= (-> self path-pos) 1.0) ) (go-virtual arrived) @@ -681,18 +686,18 @@ (none) ) :code (behavior () - (logior! (-> self elevator-status) (elevator-status elevator-status-1)) + (logior! (-> self elevator-status) (elevator-status waiting-to-ascend)) (until #f (suspend) (if (= (-> self path-pos) 1.0) - (logclear! (-> self elevator-status) (elevator-status elevator-status-1)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-ascend)) ) ) #f (none) ) :post (behavior () - (when (logtest? (-> self elevator-status) (elevator-status elevator-status-1)) + (when (logtest? (-> self elevator-status) (elevator-status waiting-to-ascend)) (seek! (-> self path-pos) (-> self path-dest) @@ -777,8 +782,8 @@ (defmethod calc-dist-between-points! elevator ((obj elevator) (path-point-x int) (path-point-y int)) "Calculates the distance between two points in the elevator's path. - @param path-point-x The index of the first point in the distance calculation, and where `next-pos` and `dist` are stored in the `path-seq` array - @param path-point-y The second point in the distance calculation" +@param path-point-x The index of the first point in the distance calculation, and where `next-pos` and `dist` are stored in the `path-seq` array +@param path-point-y The second point in the distance calculation" (set! (-> obj path-seq data path-point-x next-pos) (the float path-point-y)) (let ((point-x (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) (the float path-point-x) 'interp)) (point-y (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) (the float path-point-y) 'interp)) @@ -789,14 +794,16 @@ (none) ) -(defmethod clear-ambient-sound! elevator ((obj elevator)) - "Might be a virtual function, but clears the object's [[ambient-sound]]" +(defmethod set-ambient-sound! elevator ((obj elevator)) + "Sets the elevator's [[ambient-sound]] up" (set! (-> obj sound) (the-as ambient-sound 0)) 0 (none) ) -(defmethod base-plat-method-33 elevator ((obj elevator)) +(defmethod init-plat! elevator ((obj elevator)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." 0 (none) ) @@ -809,18 +816,25 @@ (the-as elevator ((the-as (function base-plat int base-plat) (find-parent-method elevator 7)) obj arg0)) ) -(defmethod elevator-method-40 elevator ((obj elevator)) - "TODO - need to figure out some flags to be confident about this" +;; WARN: Return type mismatch object vs none. +(defmethod activate-elevator elevator ((obj elevator)) + "Puts the elevator initially into the correct state. This is typically based upon game completion" (if (logtest? (-> obj params flags) (elevator-flags elevator-flags-6)) (go (method-of-object obj arrived)) (go (method-of-object obj waiting)) ) + (none) ) -;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! elevator ((obj elevator) (entity entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-32 float) (sv-36 path-control) (sv-40 target)) - (base-plat-method-31 obj) + (init-plat-collision! obj) (process-drawable-from-entity! obj entity) (initialize-skeleton obj (the-as skeleton-group (get-art-group obj)) (the-as pair 0)) (stop-bouncing! obj) @@ -878,8 +892,8 @@ (set! (-> obj root-override pause-adjust-distance) (+ 122880.0 (-> obj params xz-threshold) (total-distance (-> obj path))) ) - (clear-ambient-sound! obj) - (base-plat-method-33 obj) - (elevator-method-40 obj) + (set-ambient-sound! obj) + (init-plat! obj) + (activate-elevator obj) (none) ) diff --git a/goal_src/jak2/engine/common_objs/generic-obs.gc b/goal_src/jak2/engine/common_objs/generic-obs.gc index c0c6f2ffd4..d8ab890069 100644 --- a/goal_src/jak2/engine/common_objs/generic-obs.gc +++ b/goal_src/jak2/engine/common_objs/generic-obs.gc @@ -15,8 +15,8 @@ ;; DECOMP BEGINS -(defskelgroup skel-spotlight spotlight 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-spotlight spotlight spotlight-lod0-jg -1 + ((spotlight-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 10) :origin-joint-index 5 ) @@ -246,6 +246,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! swingpole ((obj swingpole) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" "Copy defaults from the entity." (stack-size-set! (-> obj main-thread) 128) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) @@ -283,7 +289,7 @@ (if (not (logtest? (the-as int a0-19) 8)) (set! v1-22 (logior v1-22 1)) ) - (set! (-> s4-1 sync-type) (the-as basic 'sync-eased)) + (set! (-> s4-1 sync-type) 'sync-eased) (set! (-> s4-1 sync-flags) (the-as sync-flags v1-22)) ) (set! (-> s4-1 period) (the-as uint 0)) @@ -337,6 +343,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! process-hidden ((obj process-hidden) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" "Copy defaults from the entity." (process-entity-status! obj (entity-perm-status dead) #t) (go (method-of-object obj die)) @@ -1745,6 +1757,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! med-res-level ((obj med-res-level) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 128) (let ((s4-0 (res-lump-struct arg0 'art-name structure)) (s3-0 (res-lump-struct (-> obj entity) 'level structure)) @@ -1821,6 +1839,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! part-spawner ((obj part-spawner) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 string)) (stack-size-set! (-> obj main-thread) 128) (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) @@ -2434,6 +2458,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! launcher ((obj launcher) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 128) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((v1-4 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0)))) diff --git a/goal_src/jak2/engine/common_objs/plat.gc b/goal_src/jak2/engine/common_objs/plat.gc index 83900185b2..7bf7e4f7b5 100644 --- a/goal_src/jak2/engine/common_objs/plat.gc +++ b/goal_src/jak2/engine/common_objs/plat.gc @@ -34,8 +34,8 @@ (art-group-get-by-name *level* "skel-plat" (the-as (pointer uint32) #f)) ) -(defmethod base-plat-method-31 plat ((obj plat)) - "TODO - collision stuff" +(defmethod init-plat-collision! plat ((obj plat)) + "TODO - collision stuff for setting up the platform" (let ((collision-shape (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((collision-mesh (new 'process 'collide-shape-prim-mesh collision-shape (the-as uint 0) (the-as uint 0)))) (set! (-> collision-mesh prim-core collide-as) (collide-spec pusher)) @@ -58,7 +58,9 @@ (none) ) -(defmethod base-plat-method-33 plat ((obj plat)) +(defmethod init-plat! plat ((obj plat)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." 0 (none) ) @@ -70,9 +72,9 @@ (defmethod plat-path-sync plat ((obj plat)) "If the `sync` period is greater than `0` then transition the state to [[plat::35]] - otherwise, [[plat::34]] +otherwise, [[plat::34]] - @see [[sync-eased]]" +@see [[sync-eased]]" (cond ((logtest? (-> obj path flags) (path-control-flag not-found)) (go (method-of-object obj plat-idle)) @@ -151,8 +153,14 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! plat ((obj plat) (entity entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask platform) (-> obj mask))) - (base-plat-method-31 obj) + (init-plat-collision! obj) (process-drawable-from-entity! obj entity) (initialize-skeleton obj (the-as skeleton-group (get-art-group obj)) (the-as pair 0)) (update-transforms (-> obj root-override)) @@ -166,7 +174,7 @@ (if (not (logtest? (-> obj fact options) (actor-option loop))) (set! v1-15 (logior v1-15 1)) ) - (set! (-> params sync-type) (the-as basic 'sync-eased)) + (set! (-> params sync-type) 'sync-eased) (set! (-> params sync-flags) (the-as sync-flags v1-15)) ) (set! (-> params period) (the-as uint 1200)) @@ -184,19 +192,19 @@ (cond ((logtest? (-> obj path flags) (path-control-flag not-found)) (set! (-> obj path-pos) 0.0) - (base-plat-method-33 obj) + (init-plat! obj) (plat-path-sync obj) ) ((> (-> obj sync period) 0) (set! (-> obj path-pos) (get-norm! (-> obj sync) 0)) (get-point-at-percent-along-path! (-> obj path) (-> obj root-override trans) (-> obj path-pos) 'interp) - (base-plat-method-33 obj) + (init-plat! obj) (plat-path-sync obj) ) (else (set! (-> obj path-pos) 0.0) (get-point-at-percent-along-path! (-> obj path) (-> obj root-override trans) (-> obj path-pos) 'interp) - (base-plat-method-33 obj) + (init-plat! obj) (plat-path-sync obj) ) ) diff --git a/goal_src/jak2/engine/common_objs/projectile.gc b/goal_src/jak2/engine/common_objs/projectile.gc index c1b0298252..2949ec1f3d 100644 --- a/goal_src/jak2/engine/common_objs/projectile.gc +++ b/goal_src/jak2/engine/common_objs/projectile.gc @@ -22,7 +22,7 @@ ;; WARN: Return type mismatch int vs sound-id. (defmethod play-impact-sound! projectile ((obj projectile)) "Plays impact sound - :virtual" +:virtual" (the-as sound-id 0) ) @@ -89,9 +89,9 @@ (defmethod handle-proj-hit! projectile ((obj projectile) (arg0 process) (arg1 event-message-block)) "When a projectile hits something, first deal damage via [[projectile::37]] - and increment the projectiles hit count. +and increment the projectiles hit count. - If we've met or exceeded the projectiles maximum allowed hits, switch to the [[projectile::impact]] state" +If we've met or exceeded the projectiles maximum allowed hits, switch to the [[projectile::impact]] state" (when (-> obj attack-mode) (let ((a2-1 (-> arg1 param 0))) (when (deal-damage! obj arg0 (the-as event-message-block a2-1)) @@ -119,7 +119,7 @@ (defmethod draw-laser-sight projectile ((obj projectile)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" 0 (none) ) @@ -396,7 +396,7 @@ (defmethod init-proj-settings! projectile ((obj projectile)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" 0 (none) ) @@ -610,7 +610,7 @@ (defmethod play-impact-sound! projectile-bounce ((obj projectile-bounce)) "Plays impact sound - :virtual" +:virtual" (let* ((a2-0 (-> obj root-override)) (v1-0 (-> a2-0 status)) ) @@ -663,7 +663,7 @@ (defmethod init-proj-settings! projectile-bounce ((obj projectile-bounce)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj max-speed) 450560.0) (set! (-> obj timeout) (seconds 1.6)) (set! (-> obj update-velocity) projectile-bounce-update-velocity) diff --git a/goal_src/jak2/engine/common_objs/rigid-body-plat.gc b/goal_src/jak2/engine/common_objs/rigid-body-plat.gc index e4563d7fa5..1afd45f6a0 100644 --- a/goal_src/jak2/engine/common_objs/rigid-body-plat.gc +++ b/goal_src/jak2/engine/common_objs/rigid-body-plat.gc @@ -405,7 +405,7 @@ (define *rigid-body-platform-constants* (new 'static 'rigid-body-platform-constants :mass 2.0 :inv-mass 0.5 - :cm-joint-w 1.0 + :cm-joint (new 'static 'vector :w 1.0) :linear-damping 1.0 :angular-damping 1.0 :bounce-factor 0.5 @@ -454,6 +454,12 @@ ) (defmethod init-from-entity! rigid-body-platform ((obj rigid-body-platform) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask platform) (-> obj mask))) (rigid-body-object-method-32 obj) (process-drawable-from-entity! obj arg0) diff --git a/goal_src/jak2/engine/common_objs/voicebox.gc b/goal_src/jak2/engine/common_objs/voicebox.gc index 1f3560ed84..95da3bf2b4 100644 --- a/goal_src/jak2/engine/common_objs/voicebox.gc +++ b/goal_src/jak2/engine/common_objs/voicebox.gc @@ -548,6 +548,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! judge ((obj judge) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (setup-collision obj) (init obj) (process-drawable-from-entity! obj arg0) diff --git a/goal_src/jak2/engine/common_objs/water-anim.gc b/goal_src/jak2/engine/common_objs/water-anim.gc index eef96ea504..57f74a9bb8 100644 --- a/goal_src/jak2/engine/common_objs/water-anim.gc +++ b/goal_src/jak2/engine/common_objs/water-anim.gc @@ -94,8 +94,8 @@ :bounds (static-spherem 0 0 0 32) ) -(defskelgroup skel-water-anim-mountain-dark-eco-dice water-anim-mountain-dark-eco 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-water-anim-mountain-dark-eco-dice water-anim-mountain-dark-eco water-anim-mountain-dark-eco-dice-lod0-jg -1 + ((water-anim-mountain-dark-eco-dice-lod0-mg (meters 999999))) :bounds (static-spherem -20 0 0 110) ) @@ -144,13 +144,13 @@ :bounds (static-spherem 0 0 0 22) ) -(defskelgroup skel-water-anim-tomb-dark-eco-stair-block water-anim-tomb-dark-eco 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-water-anim-tomb-dark-eco-stair-block water-anim-tomb-dark-eco water-anim-tomb-dark-eco-stair-block-lod0-jg -1 + ((water-anim-tomb-dark-eco-stair-block-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 80) ) -(defskelgroup skel-water-anim-tomb-dark-eco-raised-block water-anim-tomb-dark-eco 2 -1 - ((3 (meters 999999))) +(defskelgroup skel-water-anim-tomb-dark-eco-raised-block water-anim-tomb-dark-eco water-anim-tomb-dark-eco-raised-block-lod0-jg -1 + ((water-anim-tomb-dark-eco-raised-block-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 80) ) @@ -623,6 +623,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! water-anim ((obj water-anim) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (water-anim-method-27 obj) (reset-root! obj) (water-anim-init! obj) diff --git a/goal_src/jak2/engine/debug/history.gc b/goal_src/jak2/engine/debug/history.gc index 7418aa6c4f..e898561194 100644 --- a/goal_src/jak2/engine/debug/history.gc +++ b/goal_src/jak2/engine/debug/history.gc @@ -163,9 +163,9 @@ (defmethod clear-history-entries! history ((obj history)) "Iterates through each [[history-elt]] in the `elt` dynamic array - For each entry: - - clear `timestamp` - - clear `record-tag`" +For each entry: +- clear `timestamp` +- clear `record-tag`" (set! (-> obj alloc-index) 0) (countdown (v1-0 (-> obj allocated-length)) (let ((a1-3 (-> obj elts v1-0))) @@ -185,10 +185,10 @@ ;; WARN: new jak 2 until loop case, check carefully (defmethod clear-record-tags! history ((obj history) (arg0 history-channel) (arg1 uint) (arg2 uint)) "First grab the latest [[history-elt]] at `alloc-index` - 1. update it's `channel`, `record-id` and `owner` from the provided args - 2. - if it's `record-tag` is zero -- return it - - otherwise, iterate through all `elts` until one is found that does not match it's `timestamp` - - if not `0` out the `record-tag` for that elt and continue iteration" +1. update it's `channel`, `record-id` and `owner` from the provided args +2. - if it's `record-tag` is zero -- return it +- otherwise, iterate through all `elts` until one is found that does not match it's `timestamp` +- if not `0` out the `record-tag` for that elt and continue iteration" (let* ((t1-0 (-> obj alloc-index)) (v1-0 (-> obj elts)) (v0-0 (-> v1-0 t1-0)) @@ -237,9 +237,9 @@ (defmethod update-entries! history-iterator ((obj history-iterator)) "Iterate through each [[history-elt]] in [[*history*]] - - If we hit the end set `done?` to true - - If the `timestamp` on the elt, minus the current framecounter exceeds `max-age`, we are also done, return #f - - However if we find an elt who's `owner` matches the iterator's, break out early returning that `elt`" +- If we hit the end set `done?` to true +- If the `timestamp` on the elt, minus the current framecounter exceeds `max-age`, we are also done, return #f +- However if we find an elt who's `owner` matches the iterator's, break out early returning that `elt`" (let ((v1-0 *history*) (a1-2 (-> *display* base-clock frame-counter)) ) @@ -283,6 +283,7 @@ (- (-> *display* base-clock frame-counter) (-> arg0 timestamp)) ) +;; WARN: new jak 2 until loop case, check carefully (defun history-print ((arg0 history-iterator)) (local-vars (sv-16 object) diff --git a/goal_src/jak2/engine/debug/memory-usage.gc b/goal_src/jak2/engine/debug/memory-usage.gc index de2c72cae1..63a6f493b2 100644 --- a/goal_src/jak2/engine/debug/memory-usage.gc +++ b/goal_src/jak2/engine/debug/memory-usage.gc @@ -55,7 +55,6 @@ ) ) -;; definition for method 9 of type memory-usage-block (defmethod reset! memory-usage-block ((obj memory-usage-block)) "Sets `length` to 0 as well as resets all fields except `name` in the associated [[memory-usage-info]]" (set! (-> obj length) 0) @@ -67,12 +66,11 @@ obj ) -;; definition for function mem-size (defun mem-size ((data basic) (inspect-usage? symbol) (arg2 int)) "@param data The [[basic]] to call `mem-usage` on - @param inspect-usage? Set to [[#t]] if `inspect` should be called on the resulting [[memory-usage-block]] - @param arg2 TODO - unsure, some sort of bitfield - @returns The total memory footprint of the provided [[basic]]" +@param inspect-usage? Set to [[#t]] if `inspect` should be called on the resulting [[memory-usage-block]] +@param arg2 TODO - unsure, some sort of bitfield +@returns The total memory footprint of the provided [[basic]]" (let ((block (new 'stack 'memory-usage-block))) (mem-usage data block arg2) (if inspect-usage? @@ -82,14 +80,13 @@ ) ) -;; definition for method 14 of type level (defmethod compute-memory-usage! level ((obj level) (force? symbol)) "Calculates the memory usage of the level, returns and stores the [[memory-usage-block]] - in `mem-usage-block` as well as the total size in `mem-usage` +in `mem-usage-block` as well as the total size in `mem-usage` - @param force? - Will re-compute the usage if set to [[#t]], even if `mem-usage` has been set to a non-zero value - @returns The [[memory-usage-block]] representing the footprint of the level - @see [[memory-usage-block::10]]" +@param force? - Will re-compute the usage if set to [[#t]], even if `mem-usage` has been set to a non-zero value +@returns The [[memory-usage-block]] representing the footprint of the level +@see [[memory-usage-block::10]]" (if (zero? (-> obj mem-usage-block)) (set! (-> obj mem-usage-block) (new 'debug 'memory-usage-block)) ) @@ -102,7 +99,6 @@ (-> obj mem-usage-block) ) -;; definition for method 8 of type process-tree (defmethod mem-usage process-tree ((obj process-tree) (arg0 memory-usage-block) (arg1 int)) (let ((v1-0 90)) (let* ((a0-1 *dead-pool-list*) @@ -314,11 +310,8 @@ obj ) -;; definition for symbol *max-dma*, type int (define *max-dma* 0) -;; definition for method 11 of type memory-usage-block -;; INFO: Used lq/sq (defmethod print-mem-usage memory-usage-block ((obj memory-usage-block) (level level) (fmt-dest object)) (local-vars (sv-16 object) (sv-32 string) (sv-48 int)) (let ((s3-0 (&- (-> level heap current) (the-as uint (-> level heap base))))) @@ -578,10 +571,6 @@ obj ) -;; failed to figure out what this is: 0 ) - - - diff --git a/goal_src/jak2/engine/debug/nav/mysql-nav-graph.gc b/goal_src/jak2/engine/debug/nav/mysql-nav-graph.gc index 785d714503..ac7dc6fa47 100644 --- a/goal_src/jak2/engine/debug/nav/mysql-nav-graph.gc +++ b/goal_src/jak2/engine/debug/nav/mysql-nav-graph.gc @@ -253,7 +253,7 @@ (format 0 "ERROR: sql: select error ~A for ~A~%" a2-6 gp-0) (return (the-as mysql-nav-graph #f)) ) - (set! (-> gp-0 nav_graph_id) (the-as uint (string->int (the-as string (-> a2-6 data 0))))) + (set! (-> gp-0 nav_graph_id) (the-as uint (string->int (-> a2-6 data 0)))) ) ) gp-0 @@ -262,7 +262,7 @@ (defmethod alloc-new-node! mysql-nav-graph ((obj mysql-nav-graph)) "Allocates a new `[[mysql-nav-node]]`, if `node-array`'s `length` exceeds `3000` return `-1` - otherwise, return the new size of the array" +otherwise, return the new size of the array" (cond ((>= (-> obj node-array length) 3000) (format #t "mysql-nav-graph : nodes buffer too small, increase NAV_GRAPH_EDITOR_NODE_COUNT~%") @@ -286,7 +286,7 @@ (defmethod alloc-new-edge! mysql-nav-graph ((obj mysql-nav-graph)) "Allocates a new `[[mysql-nav-edge]]`, if `edge-array`'s `length` exceeds `5000` return `-1` - otherwise, return the new size of the array" +otherwise, return the new size of the array" (cond ((>= (-> obj edge-array length) 5000) (format #t "mysql-nav-graph : edges buffer too small, increase NAV_GRAPH_EDITOR_EDGE_COUNT~%") @@ -310,7 +310,7 @@ (defmethod indexof-visnode mysql-nav-graph ((obj mysql-nav-graph) (edge-id int) (node-id int)) "Returns the index in the `visnode-array` whom's [[mysql-nav-visnode]] has the provided `runtime-edge-id` and `runtime-node-id` - if none exist, return `-1`" +if none exist, return `-1`" (dotimes (v1-0 (-> obj visnode-array length)) (let ((a3-2 (-> obj visnode-array data v1-0))) (if (and (= (-> a3-2 runtime-edge-id) edge-id) (= (-> a3-2 runtime-node-id) node-id)) @@ -323,9 +323,9 @@ (defmethod alloc-new-visnode! mysql-nav-graph ((obj mysql-nav-graph) (edge-id int) (node-id int)) "Potentially allocates a new `[[mysql-nav-visnode]]`: - - if `visnode-array`'s `length` exceeds `3000` return `-1` - - otherwise, if the node already exists, TODO - - if the node does not already exist, create it!" +- if `visnode-array`'s `length` exceeds `3000` return `-1` +- otherwise, if the node already exists, TODO +- if the node does not already exist, create it!" (cond ((>= (-> obj visnode-array length) 3000) (format #t "mysql-nav-graph : visnodes buffer too small, increase NAV_GRAPH_EDITOR_VISNODE_COUNT~%") @@ -441,7 +441,7 @@ (when (logtest? (-> obj mysql-save-flag) (mysql-save-flag insert)) (let ((v1-40 (sql-query "select LAST_INSERT_ID()"))) (if (= (-> v1-40 error) 'select) - (set! (-> obj nav_node_id) (the-as uint (string->int (the-as string (-> v1-40 data 0))))) + (set! (-> obj nav_node_id) (the-as uint (string->int (-> v1-40 data 0)))) ) ) ) @@ -645,7 +645,7 @@ (when (logtest? (-> obj mysql-save-flag) (mysql-save-flag insert)) (let ((v1-60 (sql-query "select LAST_INSERT_ID()"))) (if (= (-> v1-60 error) 'select) - (set! (-> obj nav_edge_id) (the-as uint (string->int (the-as string (-> v1-60 data 0))))) + (set! (-> obj nav_edge_id) (the-as uint (string->int (-> v1-60 data 0)))) ) ) ) @@ -722,7 +722,7 @@ (defmethod indexof-nav-node mysql-nav-graph ((obj mysql-nav-graph) (node-id int)) "Iterate through the `node-array` and return the index for the first [[mysql-nav-node]] whom's `nav_node_id` matches the provided id - returns `-1` if none is found" +returns `-1` if none is found" (dotimes (v1-0 (-> obj node-array length)) (if (= node-id (-> (the-as mysql-nav-node (-> obj node-array data v1-0)) nav_node_id)) (return v1-0) @@ -733,7 +733,7 @@ (defmethod indexof-nav-edge mysql-nav-graph ((obj mysql-nav-graph) (edge-id int)) "Iterate through the `edge-array` and return the index for the first [[mysql-nav-edge]] whom's `nav_edge_id` matches the provided id - returns `-1` if none is found" +returns `-1` if none is found" (dotimes (v1-0 (-> obj edge-array length)) (if (= edge-id (-> (the-as mysql-nav-edge (+ (+ (* 80 v1-0) 12) (the-as int (-> obj edge-array)))) nav_edge_id)) (return v1-0) @@ -762,7 +762,7 @@ (format 0 "ERROR: sql: select error ~A for ~A~%" a2-2 obj) (return #f) ) - (set! (-> obj nav_graph_id) (the-as uint (string->int (the-as string (-> a2-2 data 0))))) + (set! (-> obj nav_graph_id) (the-as uint (string->int (-> a2-2 data 0)))) ) ) (format #t "Loading nodes ...~%") @@ -786,21 +786,21 @@ ) (let ((s1-0 0)) (while (< s1-0 (-> s2-1 len)) - (when (= (string->int (the-as string (-> s2-1 data (+ s1-0 9)))) (-> obj nav_graph_id)) + (when (= (string->int (-> s2-1 data (+ s1-0 9))) (-> obj nav_graph_id)) (let ((nav-node (-> obj node-array data (-> obj node-array length)))) (set! (-> nav-node mysql-save-flag) (mysql-save-flag)) (set! (-> nav-node runtime-id) (the-as uint (-> obj node-array length))) (set! (-> nav-node nav_graph_id) (-> obj nav_graph_id)) - (set! (-> nav-node nav_node_id) (the-as uint (string->int (the-as string (-> s2-1 data s1-0))))) - (set! (-> nav-node position x) (* 4096.0 (string->float (the-as string (-> s2-1 data (+ s1-0 1)))))) - (set! (-> nav-node position y) (* 4096.0 (string->float (the-as string (-> s2-1 data (+ s1-0 2)))))) - (set! (-> nav-node position z) (* 4096.0 (string->float (the-as string (-> s2-1 data (+ s1-0 3)))))) - (set! (-> nav-node level_name) (string->symbol (the-as string (-> s2-1 data (+ s1-0 4))))) - (set! (-> nav-node angle) (* 182.04445 (string->float (the-as string (-> s2-1 data (+ s1-0 5)))))) - (set! (-> nav-node radius) (* 4096.0 (string->float (the-as string (-> s2-1 data (+ s1-0 6)))))) + (set! (-> nav-node nav_node_id) (the-as uint (string->int (-> s2-1 data s1-0)))) + (set! (-> nav-node position x) (* 4096.0 (string->float (-> s2-1 data (+ s1-0 1))))) + (set! (-> nav-node position y) (* 4096.0 (string->float (-> s2-1 data (+ s1-0 2))))) + (set! (-> nav-node position z) (* 4096.0 (string->float (-> s2-1 data (+ s1-0 3))))) + (set! (-> nav-node level_name) (string->symbol (-> s2-1 data (+ s1-0 4)))) + (set! (-> nav-node angle) (* 182.04445 (string->float (-> s2-1 data (+ s1-0 5))))) + (set! (-> nav-node radius) (* 4096.0 (string->float (-> s2-1 data (+ s1-0 6))))) (set! (-> nav-node nav_node_flag) (nav-node-flag)) - (set! sv-16 (new 'global 'string 0 (the-as string (-> s2-1 data (+ s1-0 7))))) - (copy-string<-string sv-16 (the-as string (-> s2-1 data (+ s1-0 7)))) + (set! sv-16 (new 'global 'string 0 (-> s2-1 data (+ s1-0 7)))) + (copy-string<-string sv-16 (-> s2-1 data (+ s1-0 7))) (until #f (cond ((string-prefix= "visited" sv-16) @@ -832,7 +832,7 @@ ) #f (label cfg-27) - (set! (-> nav-node nav_mesh_id) (the-as uint (string->int (the-as string (-> s2-1 data (+ s1-0 8)))))) + (set! (-> nav-node nav_mesh_id) (the-as uint (string->int (-> s2-1 data (+ s1-0 8))))) ) (+! (-> obj node-array length) 1) ) @@ -870,9 +870,9 @@ ) (let ((s2-2 0)) (while (< s2-2 (-> s3-3 len)) - (when (= (string->int (the-as string (-> s3-3 data (+ s2-2 11)))) (-> obj nav_graph_id)) - (let ((s0-2 (string->int (the-as string (-> s3-3 data (+ s2-2 1)))))) - (set! sv-32 (string->int (the-as string (-> s3-3 data (+ s2-2 2))))) + (when (= (string->int (-> s3-3 data (+ s2-2 11))) (-> obj nav_graph_id)) + (let ((s0-2 (string->int (-> s3-3 data (+ s2-2 1))))) + (set! sv-32 (string->int (-> s3-3 data (+ s2-2 2)))) (set! sv-48 (indexof-nav-node obj s0-2)) (set! sv-64 (indexof-nav-node obj sv-32)) (let ((nav-edge @@ -881,7 +881,7 @@ ) (when (and (!= sv-48 -1) (!= sv-64 -1)) (set! (-> nav-edge nav_graph_id) (-> obj nav_graph_id)) - (set! (-> nav-edge nav_edge_id) (the-as uint (string->int (the-as string (-> s3-3 data s2-2))))) + (set! (-> nav-edge nav_edge_id) (the-as uint (string->int (-> s3-3 data s2-2)))) (set! (-> nav-edge nav_node_id_1) (the-as uint s0-2)) (set! (-> nav-edge nav_node_id_2) (the-as uint sv-32)) (set! (-> nav-edge mysql-save-flag) (mysql-save-flag)) @@ -890,23 +890,23 @@ (set! (-> nav-edge runtime-node-id-2) sv-64) (let ((s0-3 (-> s3-3 data (+ s2-2 3)))) (cond - ((string= "default" (the-as string s0-3)) + ((string= "default" s0-3) (set! (-> nav-edge directionality) (nav-directionality default)) 0 ) - ((string= "directed" (the-as string s0-3)) + ((string= "directed" s0-3) (set! (-> nav-edge directionality) (nav-directionality directed)) ) - ((string= "bi_directional" (the-as string s0-3)) + ((string= "bi_directional" s0-3) (set! (-> nav-edge directionality) (nav-directionality bi_directional)) ) ) ) - (set! (-> nav-edge speed_limit) (* 4096.0 (string->float (the-as string (-> s3-3 data (+ s2-2 4)))))) - (set! (-> nav-edge density) (string->float (the-as string (-> s3-3 data (+ s2-2 5))))) + (set! (-> nav-edge speed_limit) (* 4096.0 (string->float (-> s3-3 data (+ s2-2 4))))) + (set! (-> nav-edge density) (string->float (-> s3-3 data (+ s2-2 5)))) (set! (-> nav-edge traffic_edge_flag) 0) - (let ((s0-4 (new 'global 'string 0 (the-as string (-> s3-3 data (+ s2-2 6)))))) - (copy-string<-string s0-4 (the-as string (-> s3-3 data (+ s2-2 6)))) + (let ((s0-4 (new 'global 'string 0 (-> s3-3 data (+ s2-2 6))))) + (copy-string<-string s0-4 (-> s3-3 data (+ s2-2 6))) (until #f (cond ((string-prefix= "pedestrian" s0-4) @@ -928,8 +928,8 @@ #f (label cfg-58) (set! (-> nav-edge nav_clock_mask) (nav-clock-mask)) - (let ((s0-5 (new 'global 'string 0 (the-as string (-> s3-3 data (+ s2-2 7)))))) - (copy-string<-string s0-5 (the-as string (-> s3-3 data (+ s2-2 7)))) + (let ((s0-5 (new 'global 'string 0 (-> s3-3 data (+ s2-2 7))))) + (copy-string<-string s0-5 (-> s3-3 data (+ s2-2 7))) (until #f (cond ((string-prefix= "phase-1a" s0-5) @@ -973,25 +973,25 @@ (label cfg-80) (let ((s0-6 (-> s3-3 data (+ s2-2 8)))) (cond - ((string= "no-clock" (the-as string s0-6)) + ((string= "no-clock" s0-6) (set! (-> nav-edge nav_clock_type) (nav-clock-type no-clock)) 0 ) - ((string= "clock2" (the-as string s0-6)) + ((string= "clock2" s0-6) (set! (-> nav-edge nav_clock_type) (nav-clock-type clock2)) ) - ((string= "clock3" (the-as string s0-6)) + ((string= "clock3" s0-6) (set! (-> nav-edge nav_clock_type) (nav-clock-type clock3)) ) - ((string= "clock4" (the-as string s0-6)) + ((string= "clock4" s0-6) (set! (-> nav-edge nav_clock_type) (nav-clock-type clock4)) ) ) ) - (set! (-> nav-edge width) (* 4096.0 (string->float (the-as string (-> s3-3 data (+ s2-2 9)))))) + (set! (-> nav-edge width) (* 4096.0 (string->float (-> s3-3 data (+ s2-2 9))))) (set! (-> nav-edge minimap_edge_flag) (nav-minimap-edge-flag)) - (let ((s0-7 (new 'global 'string 0 (the-as string (-> s3-3 data (+ s2-2 10)))))) - (copy-string<-string s0-7 (the-as string (-> s3-3 data (+ s2-2 10)))) + (let ((s0-7 (new 'global 'string 0 (-> s3-3 data (+ s2-2 10))))) + (copy-string<-string s0-7 (-> s3-3 data (+ s2-2 10))) (until #f (cond ((string-prefix= "pass-red" s0-7) @@ -1055,12 +1055,12 @@ ) (let ((s2-3 0)) (while (< s2-3 (-> s3-5 len)) - (when (= (string->int (the-as string (-> s3-5 data (+ s2-3 2)))) (-> obj nav_graph_id)) + (when (= (string->int (-> s3-5 data (+ s2-3 2))) (-> obj nav_graph_id)) (let ((nav-visnode (-> obj visnode-array data (-> obj visnode-array length)))) (set! (-> nav-visnode mysql-save-flag) (mysql-save-flag)) (set! (-> nav-visnode nav_graph_id) (-> obj nav_graph_id)) - (set! (-> nav-visnode nav_edge_id) (the-as uint (string->int (the-as string (-> s3-5 data s2-3))))) - (set! (-> nav-visnode nav_node_id) (the-as uint (string->int (the-as string (-> s3-5 data (+ s2-3 1)))))) + (set! (-> nav-visnode nav_edge_id) (the-as uint (string->int (-> s3-5 data s2-3)))) + (set! (-> nav-visnode nav_node_id) (the-as uint (string->int (-> s3-5 data (+ s2-3 1))))) (set! (-> nav-visnode runtime-edge-id) (indexof-nav-edge obj (the-as int (-> nav-visnode nav_edge_id)))) (set! (-> nav-visnode runtime-node-id) (indexof-nav-node obj (the-as int (-> nav-visnode nav_node_id)))) ) @@ -1097,7 +1097,6 @@ ) ) -;; WARN: Return type mismatch int vs none. (defmethod mysql-nav-graph-method-17 mysql-nav-graph ((obj mysql-nav-graph)) (dotimes (v1-0 (-> obj node-array length)) (set! (-> (the-as mysql-nav-node (-> obj node-array data v1-0)) temp-edge-list) @@ -1109,9 +1108,9 @@ ) (countdown (v1-7 (-> obj edge-array length)) (let ((a1-17 (the-as mysql-nav-edge (+ (+ (* 80 v1-7) 12) (the-as int (-> obj edge-array)))))) - (when (zero? (logand (-> a1-17 mysql-save-flag) (mysql-save-flag delete))) + (when (not (logtest? (-> a1-17 mysql-save-flag) (mysql-save-flag delete))) (let ((a2-8 (-> obj node-array data (-> a1-17 runtime-node-id-1)))) - (when (zero? (logand (-> a2-8 mysql-save-flag) (mysql-save-flag delete))) + (when (not (logtest? (-> a2-8 mysql-save-flag) (mysql-save-flag delete))) (cond ((-> a2-8 temp-edge-list) (set! (-> a1-17 temp-next-edge) (the-as mysql-nav-edge (-> a2-8 temp-edge-list))) @@ -1132,9 +1131,7 @@ ;; ERROR: function was not converted to expressions. Cannot decompile. -;; WARN: Return type mismatch int vs none. -;; WARN: Return type mismatch int vs none. (defmethod mysql-nav-graph-method-20 mysql-nav-graph ((obj mysql-nav-graph)) (mysql-nav-graph-method-17 obj) (mysql-nav-graph-method-19 obj) @@ -1144,6 +1141,3 @@ ) - - - diff --git a/goal_src/jak2/engine/debug/viewer.gc b/goal_src/jak2/engine/debug/viewer.gc index 50493eb658..598996a2a5 100644 --- a/goal_src/jak2/engine/debug/viewer.gc +++ b/goal_src/jak2/engine/debug/viewer.gc @@ -204,6 +204,12 @@ ) (defmethod init-from-entity! viewer ((obj viewer) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! *viewer* obj) (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) diff --git a/goal_src/jak2/engine/entity/entity-table.gc b/goal_src/jak2/engine/entity/entity-table.gc index f9efd33dd0..57a1a64e62 100644 --- a/goal_src/jak2/engine/entity/entity-table.gc +++ b/goal_src/jak2/engine/entity/entity-table.gc @@ -196,10 +196,10 @@ ;; WARN: Return type mismatch basic vs entity-info. (defun entity-info-lookup ((arg0 type)) "Given a type, return the [[entity-info]] from [[*entity-info*]] whos type - matches the `ptype` field. Set's `method 13` on said type that returns the `length` - off the [[entity-info]] +matches the `ptype` field. Set's `method 13` on said type that returns the `length` +off the [[entity-info]] - If nothing matches, set `method 13` to `#f` and return `#f`" +If nothing matches, set `method 13` to `#f` and return `#f`" (the-as entity-info (cond ((nonzero? (-> arg0 method-table 13)) (-> arg0 method-table 13) diff --git a/goal_src/jak2/engine/game/task/task-arrow.gc b/goal_src/jak2/engine/game/task/task-arrow.gc index 023e6e76aa..bce6a073c6 100644 --- a/goal_src/jak2/engine/game/task/task-arrow.gc +++ b/goal_src/jak2/engine/game/task/task-arrow.gc @@ -42,6 +42,9 @@ (deftype task-arrow (process-drawable) + "Despite the name, these are actually the beams of light that highlight +various objections. Such as the flag in the first ruins mission +or collectable items on the ground (jetboard / weapon upgrades / etc)" ((pos vector :inline :offset-assert 208) (theta float :offset-assert 224) (phi float :offset-assert 228) diff --git a/goal_src/jak2/engine/game/task/task-control-h.gc b/goal_src/jak2/engine/game/task/task-control-h.gc index e390b6c565..07e4647273 100644 --- a/goal_src/jak2/engine/game/task/task-control-h.gc +++ b/goal_src/jak2/engine/game/task/task-control-h.gc @@ -1442,7 +1442,7 @@ :flag-assert #xa00000010 (:methods (new (symbol type game-task-actor) _type_ 0) - (game-task-control-method-9 (_type_) game-task-event 9) + (get-current-task-event (_type_) game-task-event 9) ) ) diff --git a/goal_src/jak2/engine/game/task/task-control.gc b/goal_src/jak2/engine/game/task/task-control.gc index 8362540247..c099ab0e9c 100644 --- a/goal_src/jak2/engine/game/task/task-control.gc +++ b/goal_src/jak2/engine/game/task/task-control.gc @@ -156,15 +156,9 @@ (let ((node-open-ev (-> node when-open node-ev-i))) (case (-> node-open-ev actor) (((game-task-actor minimap)) - (let ((v1-67 (add-icon! - *minimap* - *dproc* - (-> node-open-ev icon) - (the-as int (-> node-open-ev icon)) - (the-as vector #f) - i - ) - ) + (let ((v1-67 + (add-icon! *minimap* *dproc* (-> node-open-ev icon) (the-as int (-> node-open-ev icon)) (the-as vector #f) i) + ) ) (if v1-67 (logior! (-> v1-67 flags) (minimap-flag task-graph)) @@ -1313,7 +1307,7 @@ ) ) -(defmethod game-task-control-method-9 game-task-control ((obj game-task-control)) +(defmethod get-current-task-event game-task-control ((obj game-task-control)) (with-pp (let ((gp-0 (new 'static 'game-task-event :scene #f))) (let ((s5-0 #f)) diff --git a/goal_src/jak2/engine/geometry/path-h.gc b/goal_src/jak2/engine/geometry/path-h.gc index c5115eed55..99eb0583bf 100644 --- a/goal_src/jak2/engine/geometry/path-h.gc +++ b/goal_src/jak2/engine/geometry/path-h.gc @@ -20,9 +20,9 @@ (deftype path-control (basic) "An abstraction around a [[curve]], providing tools such as: - - debug drawing - - conveniant vertex accessing - - vertex finding/searching algorithms" +- debug drawing +- conveniant vertex accessing +- vertex finding/searching algorithms" ((flags path-control-flag :offset-assert 4) (name symbol :offset-assert 8) (process process-drawable :offset-assert 12) diff --git a/goal_src/jak2/engine/geometry/path.gc b/goal_src/jak2/engine/geometry/path.gc index 58c5b0052d..cfa8734d7d 100644 --- a/goal_src/jak2/engine/geometry/path.gc +++ b/goal_src/jak2/engine/geometry/path.gc @@ -7,8 +7,6 @@ ;; DECOMP BEGINS -;; definition for method 9 of type path-control -;; WARN: Return type mismatch int vs none. (defmethod debug-draw path-control ((obj path-control)) (cond ((logtest? (-> obj flags) (path-control-flag not-found)) @@ -65,7 +63,6 @@ (none) ) -;; definition for method 18 of type path-control (defmethod total-distance path-control ((obj path-control)) "Calcuate the total path length by summing the distance between each adjacent [[curve]] vertex" (let ((f30-0 0.0)) @@ -76,7 +73,6 @@ ) ) -;; definition for method 18 of type curve-control (defmethod total-distance curve-control ((obj curve-control)) "Calcuate the total path length by summing the distance between each adjacent [[curve]] vertex" (let ((f0-0 (-> obj curve length))) @@ -88,20 +84,18 @@ ) ) -;; definition for method 10 of type path-control -;; INFO: Used lq/sq (defmethod get-point-in-path! path-control ((obj path-control) (ret vector) (idx float) (search-type symbol)) "Depending on the value of `idx`, the result can be quite different: - - if `idx` is less than `0.0` - return the first vertex in the path - - if `idx` is greater than the number of vertices in the path, return the last vertex - - if `search-type` is equal to `exact` OR `idx` is an integral number (ex 1.0), return that vertex - - otherwise, do a linear interpolation between the vertex at `idx` (truncated) and the next vertex - using the fractional component of `idx` as the interpolant, return this result +- if `idx` is less than `0.0` - return the first vertex in the path +- if `idx` is greater than the number of vertices in the path, return the last vertex +- if `search-type` is equal to `exact` OR `idx` is an integral number (ex 1.0), return that vertex +- otherwise, do a linear interpolation between the vertex at `idx` (truncated) and the next vertex +using the fractional component of `idx` as the interpolant, return this result - @param! ret The [[vector]] that is used to hold the return value - @param idx Either the vertex index or also partially the interpolant in a LERP - @param search-type The only recognized value is `exact` - @returns Either a distinct vertex along the path, or some fractional point between two vertices" +@param! ret The [[vector]] that is used to hold the return value +@param idx Either the vertex index or also partially the interpolant in a LERP +@param search-type The only recognized value is `exact` +@returns Either a distinct vertex along the path, or some fractional point between two vertices" (let ((num-vertices (-> obj curve num-cverts)) (vert-idx (the float (the int idx))) ) @@ -128,8 +122,6 @@ ret ) -;; definition for method 11 of type path-control -;; INFO: Used lq/sq (defmethod get-random-point path-control ((obj path-control) (arg0 vector)) "Attempts to retrieve a random point along the path, returns the [[*null-vector*]] if no vertices are defined" (cond @@ -149,24 +141,22 @@ arg0 ) -;; definition for method 14 of type path-control (defmethod get-point-at-percent-along-path! path-control ((obj path-control) (ret vector) (percent float) (search-type symbol)) "@param! ret The [[vector]] that is used to hold the return value - @param percent The percentage along the path - @param search-type The only recognized value is `exact` - @returns the point closest to some arbitrary percentage along the path - @see [[path-control::10]]" +@param percent The percentage along the path +@param search-type The only recognized value is `exact` +@returns the point closest to some arbitrary percentage along the path +@see [[path-control::10]]" (get-point-in-path! obj ret (* percent (the float (+ (-> obj curve num-cverts) -1))) search-type) ) -;; definition for method 14 of type curve-control (defmethod get-point-at-percent-along-path! curve-control ((obj curve-control) (arg0 vector) (arg1 float) (arg2 symbol)) "@param! ret The [[vector]] that is used to hold the return value - @param percent The percentage along the path - @param search-type The only recognized value is `exact` - @returns the point closest to some arbitrary percentage along the path - @see [[path-control::10]]" - (if (zero? (logand (-> obj flags) (path-control-flag not-found))) +@param percent The percentage along the path +@param search-type The only recognized value is `exact` +@returns the point closest to some arbitrary percentage along the path +@see [[path-control::10]]" + (if (not (logtest? (-> obj flags) (path-control-flag not-found))) (curve-evaluate! arg0 arg1 @@ -179,20 +169,19 @@ arg0 ) -;; definition for method 10 of type curve-control (defmethod get-point-in-path! curve-control ((obj curve-control) (arg0 vector) (arg1 float) (arg2 symbol)) "Depending on the value of `idx`, the result can be quite different: - - if `idx` is less than `0.0` - return the first vertex in the path - - if `idx` is greater than the number of vertices in the path, return the last vertex - - if `search-type` is equal to `exact` OR `idx` is an integral number (ex 1.0), return that vertex - - otherwise, do a linear interpolation between the vertex at `idx` (truncated) and the next vertex - using the fractional component of `idx` as the interpolant, return this result +- if `idx` is less than `0.0` - return the first vertex in the path +- if `idx` is greater than the number of vertices in the path, return the last vertex +- if `search-type` is equal to `exact` OR `idx` is an integral number (ex 1.0), return that vertex +- otherwise, do a linear interpolation between the vertex at `idx` (truncated) and the next vertex +using the fractional component of `idx` as the interpolant, return this result - @param! ret The [[vector]] that is used to hold the return value - @param idx Either the vertex index or also partially the interpolant in a LERP - @param search-type The only recognized value is `exact` - @returns Either a distinct vertex along the path, or some fractional point between two vertices" - (if (zero? (logand (-> obj flags) (path-control-flag not-found))) +@param! ret The [[vector]] that is used to hold the return value +@param idx Either the vertex index or also partially the interpolant in a LERP +@param search-type The only recognized value is `exact` +@returns Either a distinct vertex along the path, or some fractional point between two vertices" + (if (not (logtest? (-> obj flags) (path-control-flag not-found))) (curve-evaluate! arg0 (/ arg1 (the float (+ (-> obj curve num-cverts) -1))) @@ -205,18 +194,17 @@ arg0 ) -;; definition for method 26 of type path-control (defmethod displacement-between-two-points! path-control ((obj path-control) (ret vector) (idx float) (mag float)) "Return value can differ quite a bit: - - If [[path-control-flag::4]] is set OR there are less than 2 vertices OR `idx` is less than `0.0` - return [[*null-vector*]] - - Otherwise, find the scaled (by `mag`) displacement vector between two points in the path: - - If `idx` is not beyond the second last vertex, the result is between vertex `idx` and `idx+1` - - else, the result is between the second last vertex and the last +- If [[path-control-flag::4]] is set OR there are less than 2 vertices OR `idx` is less than `0.0` - return [[*null-vector*]] +- Otherwise, find the scaled (by `mag`) displacement vector between two points in the path: +- If `idx` is not beyond the second last vertex, the result is between vertex `idx` and `idx+1` +- else, the result is between the second last vertex and the last - @param! ret The [[vector]] that is used to hold the return value - @param idx The vertex index - @param mag The magnitude to scale the resulting displacement vector by - @returns The displacement [[vector]] between two points in the path, the last 2, or the [[*null-vector*]]" +@param! ret The [[vector]] that is used to hold the return value +@param idx The vertex index +@param mag The magnitude to scale the resulting displacement vector by +@returns The displacement [[vector]] between two points in the path, the last 2, or the [[*null-vector*]]" (let ((num-vertices (-> obj curve num-cverts)) (vert-idx (the float (the int idx))) ) @@ -235,20 +223,18 @@ ret ) -;; definition for method 12 of type path-control (defmethod displacement-between-two-points-copy! path-control ((obj path-control) (ret vector) (idx float) (mag float)) "Calls [[path-control::26]] with the provided args - @see [[path-control::26]]" +@see [[path-control::26]]" (displacement-between-two-points! obj ret idx mag) ) -;; definition for method 15 of type path-control (defmethod displacement-between-points-at-percent-scaled! path-control ((obj path-control) (ret vector) (percent float) (mag float)) "Calls [[path-control::12], with the `idx` at a given percent along the path - @param ret The [[vector]] that is used to hold the return value - @param percent The percentage along the path to find the first index - @param mag Multiplied by the number of points in the path and scales the resulting vector - @returns The displacement between the last two points of the path scaled to the magnitude equal to the number of points in the path" +@param ret The [[vector]] that is used to hold the return value +@param percent The percentage along the path to find the first index +@param mag Multiplied by the number of points in the path and scales the resulting vector +@returns The displacement between the last two points of the path scaled to the magnitude equal to the number of points in the path" (displacement-between-two-points-copy! obj ret @@ -257,41 +243,38 @@ ) ) -;; definition for method 13 of type path-control (defmethod displacement-between-two-points-normalized! path-control ((obj path-control) (ret vector) (idx float)) "Calls [[path-control::26], with the provided `idx` - @param! ret The [[vector]] the result is stored within - @param idx The vertex index - @returns The resulting displacement vector, normalized - @see [[path-control::26]]" +@param! ret The [[vector]] the result is stored within +@param idx The vertex index +@returns The resulting displacement vector, normalized +@see [[path-control::26]]" (displacement-between-two-points! obj ret idx 1.0) (vector-normalize! ret 1.0) ) -;; definition for method 16 of type path-control (defmethod displacement-between-points-at-percent-normalized! path-control ((obj path-control) (ret vector) (percent float)) "Calls [[path-control::13], with the `idx` at a given percent along the path - @param! ret The [[vector]] the result is stored within - @param percent The percentage along the path - @returns The resulting displacement vector, normalized - @see [[path-control::13]] - @see [[path-control::14]]" +@param! ret The [[vector]] the result is stored within +@param percent The percentage along the path +@returns The resulting displacement vector, normalized +@see [[path-control::13]] +@see [[path-control::14]]" (displacement-between-two-points-normalized! obj ret (* percent (the float (+ (-> obj curve num-cverts) -1)))) ) -;; definition for method 26 of type curve-control (defmethod displacement-between-two-points! curve-control ((obj curve-control) (arg0 vector) (arg1 float) (arg2 float)) "Return value can differ quite a bit: - - If [[path-control-flag::4]] is set OR there are less than 2 vertices OR `idx` is less than `0.0` - return [[*null-vector*]] - - Otherwise, find the scaled (by `mag`) displacement vector between two points in the path: - - If `idx` is not beyond the second last vertex, the result is between vertex `idx` and `idx+1` - - else, the result is between the second last vertex and the last +- If [[path-control-flag::4]] is set OR there are less than 2 vertices OR `idx` is less than `0.0` - return [[*null-vector*]] +- Otherwise, find the scaled (by `mag`) displacement vector between two points in the path: +- If `idx` is not beyond the second last vertex, the result is between vertex `idx` and `idx+1` +- else, the result is between the second last vertex and the last - @param! ret The [[vector]] that is used to hold the return value - @param idx The vertex index - @param mag The magnitude to scale the resulting displacement vector by - @returns The displacement [[vector]] between two points in the path, the last 2, or the [[*null-vector*]]" - (when (zero? (logand (-> obj flags) (path-control-flag not-found))) +@param! ret The [[vector]] that is used to hold the return value +@param idx The vertex index +@param mag The magnitude to scale the resulting displacement vector by +@returns The displacement [[vector]] between two points in the path, the last 2, or the [[*null-vector*]]" + (when (not (logtest? (-> obj flags) (path-control-flag not-found))) (let ((s4-0 (new 'stack-no-clear 'vector))) (curve-evaluate! arg0 @@ -329,42 +312,38 @@ ) ) -;; definition for method 12 of type curve-control (defmethod displacement-between-two-points-copy! curve-control ((obj curve-control) (ret vector) (percent float) (mag float)) "Calls [[path-control::26]] with the provided args - @see [[path-control::26]]" +@see [[path-control::26]]" (displacement-between-two-points! obj ret (/ percent (the float (+ (-> obj curve num-cverts) -1))) mag) ) -;; definition for method 15 of type curve-control (defmethod displacement-between-points-at-percent-scaled! curve-control ((obj curve-control) (ret vector) (idx float) (mag float)) "Calls [[path-control::12], with the `idx` at a given percent along the path - @param ret The [[vector]] that is used to hold the return value - @param percent The percentage along the path to find the first index - @param mag Multiplied by the number of points in the path and scales the resulting vector - @returns The displacement between the last two points of the path scaled to the magnitude equal to the number of points in the path" +@param ret The [[vector]] that is used to hold the return value +@param percent The percentage along the path to find the first index +@param mag Multiplied by the number of points in the path and scales the resulting vector +@returns The displacement between the last two points of the path scaled to the magnitude equal to the number of points in the path" (displacement-between-two-points! obj ret idx mag) ) -;; definition for method 16 of type curve-control (defmethod displacement-between-points-at-percent-normalized! curve-control ((obj curve-control) (ret vector) (percent float)) "Calls [[path-control::13], with the `idx` at a given percent along the path - @param! ret The [[vector]] the result is stored within - @param percent The percentage along the path - @returns The resulting displacement vector, normalized - @see [[path-control::13]] - @see [[path-control::14]]" +@param! ret The [[vector]] the result is stored within +@param percent The percentage along the path +@returns The resulting displacement vector, normalized +@see [[path-control::13]] +@see [[path-control::14]]" (displacement-between-two-points! obj ret percent 0.01) (vector-normalize! ret 1.0) ) -;; definition for method 13 of type curve-control (defmethod displacement-between-two-points-normalized! curve-control ((obj curve-control) (ret vector) (idx float)) "Calls [[path-control::26], with the provided `idx` - @param! ret The [[vector]] the result is stored within - @param idx The vertex index - @returns The resulting displacement vector, normalized - @see [[path-control::26]]" +@param! ret The [[vector]] the result is stored within +@param idx The vertex index +@returns The resulting displacement vector, normalized +@see [[path-control::26]]" (displacement-between-points-at-percent-normalized! obj ret @@ -372,12 +351,10 @@ ) ) -;; definition for method 22 of type path-control -;; INFO: Used lq/sq (defmethod get-furthest-point-on-path path-control ((obj path-control) (point vector)) "@param point The point to calculate distance from - @returns the `vertex-idx.interpolant` value to the point on the path furthest away from the `point` - @see [[path-control::10]]" +@returns the `vertex-idx.interpolant` value to the point on the path furthest away from the `point` +@see [[path-control::10]]" (let ((curr-point (new 'stack-no-clear 'vector)) (next-point (new 'stack-no-clear 'vector)) (given-point (new 'stack-no-clear 'vector)) @@ -409,16 +386,13 @@ ) ) -;; definition for method 23 of type path-control (defmethod get-path-percentage-at-furthest-point path-control ((obj path-control) (point vector)) "@param point The point to calculate distance from - @returns the percentage of path completion from the point on the path furthest away from the `point` - @see [[path-control::14]]" +@returns the percentage of path completion from the point on the path furthest away from the `point` +@see [[path-control::14]]" (/ (get-furthest-point-on-path obj point) (the float (+ (-> obj curve num-cverts) -1))) ) -;; definition for method 9 of type curve-control -;; WARN: Return type mismatch int vs none. (defmethod debug-draw curve-control ((obj curve-control)) (cond ((logtest? (-> obj flags) (path-control-flag not-found)) @@ -467,7 +441,6 @@ (none) ) -;; definition for method 24 of type path-control (defmethod path-control-method-24 path-control ((obj path-control) (arg0 vector)) "TODO" (let ((s4-0 (-> obj curve num-cverts))) diff --git a/goal_src/jak2/engine/gfx/hw/video.gc b/goal_src/jak2/engine/gfx/hw/video.gc index f991a7e644..f91cfd0416 100644 --- a/goal_src/jak2/engine/gfx/hw/video.gc +++ b/goal_src/jak2/engine/gfx/hw/video.gc @@ -9,14 +9,13 @@ ;; DECOMP BEGINS -;; WARN: Return type mismatch int vs none. (defun set-video-mode ((tv-format symbol)) "Set related settings to the video mode in the settings, [[*video-params*]] and the [[*video-mode*]] - `ntsc` has a [[*video-mode*]] value of `0`, where as `pal` has a value of `1` +`ntsc` has a [[*video-mode*]] value of `0`, where as `pal` has a value of `1` - Will also set a bunch of common settings related to profiling and the camera to finalize the switch +Will also set a bunch of common settings related to profiling and the camera to finalize the switch - @param tv-format Recognizes `ntsc` and `pal`" +@param tv-format Recognizes `ntsc` and `pal`" (case tv-format (('ntsc) (set! (-> *setting-control* user-default display-dx) 0) @@ -51,10 +50,9 @@ (-> *setting-control* user-current video-mode) ) -;; WARN: Return type mismatch int vs none. (defun set-aspect-ratio ((aspect symbol)) "Set [[*video-params*]] aspect-ratio related settings based on the mode provided. - @param aspect Recognizes `aspect4x3` and `aspect16x9`" +@param aspect Recognizes `aspect4x3` and `aspect16x9`" (case aspect (('aspect4x3) (set! (-> *video-params* relative-x-scale) 1.0) @@ -74,10 +72,9 @@ (-> *setting-control* user-current aspect-ratio) ) -;; WARN: Return type mismatch int vs none. (defun set-progressive-scan ((val symbol)) "Flip the progressive scan setting flag depending on the value provided - @param val The value to set the progressive scan flag to" +@param val The value to set the progressive scan flag to" (set! (-> *setting-control* user-default use-progressive-scan) val) 0 (none) @@ -90,7 +87,6 @@ (define *smode2* 0) -;; WARN: Return type mismatch int vs none. (defun set-graphics-mode () "TODO" (let ((settings *setting-control*) @@ -141,7 +137,3 @@ 0 (none) ) - - - - diff --git a/goal_src/jak2/engine/gfx/mood/mood-h.gc b/goal_src/jak2/engine/gfx/mood/mood-h.gc index 478f91fab9..b2217121da 100644 --- a/goal_src/jak2/engine/gfx/mood/mood-h.gc +++ b/goal_src/jak2/engine/gfx/mood/mood-h.gc @@ -198,7 +198,7 @@ (deftype mood-context (mood-context-core3) "`state` holds an arbitrary state structure, ie `[[sewer-states]]` and is used - when updating the mood. This means that an individual state structure must be less than 128 bytes" +when updating the mood. This means that an individual state structure must be less than 128 bytes" ((itimes vector4w 4 :inline :offset-assert 1776) (state uint32 32 :offset-assert 1840) (data uint128 123 :offset 0) @@ -271,10 +271,3 @@ (play-or-stop-lightning! (_type_ sound-spec vector) sound-id 18) ) ) - - -0 - - - - diff --git a/goal_src/jak2/engine/gfx/mood/mood-tables2.gc b/goal_src/jak2/engine/gfx/mood/mood-tables2.gc index d105a1e3bb..fec0fec3fa 100644 --- a/goal_src/jak2/engine/gfx/mood/mood-tables2.gc +++ b/goal_src/jak2/engine/gfx/mood/mood-tables2.gc @@ -258,7 +258,7 @@ ;; WARN: Return type mismatch object vs none. (defun desaturate-mood-colors ((arg0 float) (arg1 float) (arg2 float)) "Unused - Generate GOAL code for a new [[*overide-mood-color-table*]] definition that desaturates the color - Apply said overrides to the [[*overide-table*]]" +Apply said overrides to the [[*overide-table*]]" (mem-copy! (the-as pointer (-> *overide-table* mood-color-table)) (the-as pointer *no-cloud-mood-color-table*) @@ -355,7 +355,7 @@ ;; WARN: Return type mismatch object vs none. (defun desaturate-mood-fog ((arg0 (pointer mood-fog-table)) (arg1 float) (arg2 float)) "Unused - Generate GOAL code for a new [[*overide-mood-fog-table*]] definition that desaturates the fog color - Apply said overrides to the [[*overide-table*]]" +Apply said overrides to the [[*overide-table*]]" (mem-copy! (the-as pointer (-> *overide-table* mood-fog-table)) arg0 384) (dotimes (v1-2 8) (let ((a0-5 (-> *overide-table* mood-fog-table data v1-2))) @@ -426,7 +426,3 @@ ) ) - - - - diff --git a/goal_src/jak2/engine/gfx/mood/mood.gc b/goal_src/jak2/engine/gfx/mood/mood.gc index bf6f1d1a38..4663c37a96 100644 --- a/goal_src/jak2/engine/gfx/mood/mood.gc +++ b/goal_src/jak2/engine/gfx/mood/mood.gc @@ -32,13 +32,8 @@ #f ) -;; WARN: Return type mismatch int vs none. -;; WARN: Function may read a register that is not set: f31 (defun update-mood-itimes ((arg0 mood-context)) (local-vars - (r0-0 int) - (r0-1 int) - (r0-2 int) (v1-1 uint128) (v1-2 uint128) (v1-3 uint128) @@ -59,7 +54,6 @@ (t2-1 uint128) (t3-0 uint128) (t3-1 uint128) - (f31-0 none) ) (rlet ((vf1 :class vf) (vf2 :class vf) @@ -126,11 +120,11 @@ (.mov t3-0 vf8) (.pw.sra t1-1 t1-0 6) (.pw.sra t2-1 t2-0 6) - (.mov r0-0 f31-0) + (nop!) (.pw.sra t3-1 t3-0 6) - (.mov r0-1 f31-0) + (nop!) (.ppach v1-3 a1-1 v1-2) - (.mov r0-2 f31-0) + (nop!) (.ppach a1-2 a3-1 a2-1) (set! (-> arg0 itimes 0 quad) v1-3) (.ppach v1-4 t1-1 t0-1) @@ -387,10 +381,7 @@ (set! (-> v1-0 0 dir0 extra x) 1.0) (set! (-> v1-0 0 dir1 extra x) 0.0) (set! (-> v1-0 0 dir2 extra x) 0.0) - (let ((f0-35 1.0)) - (set! (-> v1-0 0 ambi extra x) f0-35) - f0-35 - ) + (set! (-> v1-0 0 ambi extra x) 1.0) ) ) @@ -423,33 +414,28 @@ (set! (-> gp-0 time) 0.0) (set! (-> gp-0 length) (the-as uint (the int (* (rand-vu-float-range 7.0 15.0) arg6)))) (set! (-> gp-0 height) (the-as uint (the int (rand-vu-float-range 0.0 255.0)))) - (let ((f0-11 arg4)) - (set! (-> arg0 times s4-0 w) f0-11) - f0-11 - ) + (set! (-> arg0 times s4-0 w) arg4) ) (else (let ((f0-14 (sin (* 32768.0 (/ f0-0 (the float v1-2)))))) (set! (-> arg0 times s4-0 w) (+ (* (the float s0-0) f0-14 arg5) arg4)) ) - (when (not (paused?)) - (let ((f0-19 (+ (-> gp-0 time) (if (= (-> *display* bg-clock clock-ratio) 0.0) - 1.0 - (-> self clock time-adjust-ratio) - ) - ) - ) - ) - (set! (-> gp-0 time) f0-19) - f0-19 + (if (not (paused?)) + (set! (-> gp-0 time) (+ (-> gp-0 time) (if (= (-> *display* bg-clock clock-ratio) 0.0) + 1.0 + (-> self clock time-adjust-ratio) + ) + ) + ) ) - ) ) ) ) ) -(define *flash0* (new 'static 'boxed-array :type float 1.0 0.0 0.5 1.0 0.5 0.0 0.5 0.35 0.4 0.35 0.25 0.1 0.04)) +(define *flash0* + (new 'static 'boxed-array :type float 1.0 0.0 0.5 1.0 0.5 0.0 0.5 0.35 0.4 0.35 0.25 0.1 0.04) + ) (define *flash1* (new 'static 'boxed-array :type float 1.0 0.8 0.0 1.0 0.5 1.0 0.4 0.2 0.1)) @@ -457,47 +443,52 @@ (define *flash3* (new 'static 'boxed-array :type float 0.5 0.0 1.0 0.9 1.0 0.8 0.3 0.0 0.0 0.5 0.1 0.5 0.35)) -(define *flash4* (new 'static 'boxed-array :type float 1.0 0.0 1.0 0.0 1.0 0.9 0.8 0.7 0.6 0.5 0.4 0.3 0.2 0.5 0.4 0.3 0.2 0.1)) +(define *flash4* + (new 'static 'boxed-array :type float 1.0 0.0 1.0 0.0 1.0 0.9 0.8 0.7 0.6 0.5 0.4 0.3 0.2 0.5 0.4 0.3 0.2 0.1) + ) (define *flash5* (new 'static 'boxed-array :type float - 1.0 - 0.0 - 1.0 - 0.0 - 1.0 - 0.95 - 0.9 - 0.85 - 0.8 - 0.75 - 0.7 - 0.65 - 0.6 - 0.55 - 0.5 - 0.45 - 0.4 - 0.35 - 0.3 - 0.25 - 0.2 - 0.5 - 0.45 - 0.4 - 0.35 - 0.3 - 0.25 - 0.2 - 0.15 - 0.1 - 0.05 - ) - + 1.0 + 0.0 + 1.0 + 0.0 + 1.0 + 0.95 + 0.9 + 0.85 + 0.8 + 0.75 + 0.7 + 0.65 + 0.6 + 0.55 + 0.5 + 0.45 + 0.4 + 0.35 + 0.3 + 0.25 + 0.2 + 0.5 + 0.45 + 0.4 + 0.35 + 0.3 + 0.25 + 0.2 + 0.15 + 0.1 + 0.05 + ) ) -(define *flash6* (new 'static 'boxed-array :type float 1.0 0.0 1.0 0.0 0.5 0.0 0.5 0.35 0.0 0.0 1.0 0.0 0.2 0.1)) +(define *flash6* + (new 'static 'boxed-array :type float 1.0 0.0 1.0 0.0 0.5 0.0 0.5 0.35 0.0 0.0 1.0 0.0 0.2 0.1) + ) -(define *flash7* (new 'static 'boxed-array :type float 1.0 0.8 0.3 0.0 0.6 0.5 0.4 0.3 0.2 0.5 0.4 0.3 0.2 0.1)) +(define *flash7* + (new 'static 'boxed-array :type float 1.0 0.8 0.3 0.0 0.6 0.5 0.4 0.3 0.2 0.5 0.4 0.3 0.2 0.1) + ) (deftype light-state (structure) ((time float :offset-assert 0) @@ -569,10 +560,7 @@ ) ) ) - (let ((f0-16 (+ f0-15 arg7))) - (set! (-> gp-0 time) f0-16) - f0-16 - ) + (set! (-> gp-0 time) (+ f0-15 arg7)) ) ) ) @@ -595,12 +583,9 @@ (set! (-> arg0 times arg1 w) (+ arg3 (* f0-1 arg4))) (set! (-> arg0 times (+ arg1 1) w) (+ arg3 (* (- f0-1) arg4))) ) - (when (not (paused?)) - (let ((f0-6 (+ (-> gp-0 lava) arg5))) - (set! (-> gp-0 lava) f0-6) - f0-6 + (if (not (paused?)) + (set! (-> gp-0 lava) (+ (-> gp-0 lava) arg5)) ) - ) ) ) @@ -614,7 +599,6 @@ ) -;; WARN: Return type mismatch int vs none. (defun update-mood-flicker ((arg0 mood-context) (arg1 int) (arg2 int)) "Unused" (let ((gp-0 (the-as flicker-state (+ (+ arg2 1840) (the-as int arg0))))) @@ -669,16 +653,10 @@ ) (cond ((>= (-> gp-0 delay2) (-> gp-0 delay)) - (let ((f0-5 (rand-vu-float-range 1.0 1.5))) - (set! (-> gp-0 value) f0-5) - f0-5 - ) + (set! (-> gp-0 value) (rand-vu-float-range 1.0 1.5)) ) ((< (-> gp-0 delay2) (-> gp-0 delay)) - (let ((f0-6 1.5)) - (set! (-> gp-0 value) f0-6) - f0-6 - ) + (set! (-> gp-0 value) 1.5) ) ) ) @@ -747,21 +725,19 @@ ) ) (when (not (paused?)) - (let* ((f0-5 (+ (-> gp-0 time) arg4)) - (f0-6 (- f0-5 (* (the float (the int (/ f0-5 32.0))) 32.0))) - ) - (set! (-> gp-0 time) f0-6) - f0-6 + (let ((f0-5 (+ (-> gp-0 time) arg4))) + (set! (-> gp-0 time) (- f0-5 (* (the float (the int (/ f0-5 32.0))) 32.0))) ) ) ) ) (defun update-mood-caustics ((arg0 mood-context) (arg1 int) (arg2 float) (arg3 float) (arg4 float) (arg5 float)) - (let* ((f0-2 (sin (+ arg2 arg3))) (f0-4 (+ arg4 (* f0-2 arg5)))) (set! (-> arg0 times arg1 w) f0-4) f0-4) + (let ((f0-2 (sin (+ arg2 arg3)))) + (set! (-> arg0 times arg1 w) (+ arg4 (* f0-2 arg5))) + ) ) -;; WARN: Return type mismatch int vs none. (defmethod apply-mood-clouds-and-fog mood-control ((obj mood-control) (arg0 mood-control-work)) (let ((v1-0 (-> obj mood-fog-table))) (dotimes (a0-1 24) @@ -841,7 +817,6 @@ (none) ) -;; WARN: Return type mismatch int vs none. (defmethod apply-mood-color mood-control ((obj mood-control) (arg0 mood-control-work)) (let ((v1-0 (-> obj mood-color-table))) (dotimes (a0-1 16) @@ -880,7 +855,6 @@ (none) ) -;; WARN: Return type mismatch int vs none. (defmethod apply-mood-channels mood-control ((obj mood-control) (arg0 mood-control-work)) (let ((v1-0 (-> obj mood-channel-group))) (dotimes (a0-1 24) @@ -919,7 +893,6 @@ (none) ) -;; WARN: Return type mismatch int vs none. (defmethod adjust-num-clouds! mood-control ((obj mood-control) (arg0 mood-control-work)) (let ((v1-0 (-> obj mood-clouds))) (set! (-> v1-0 cloud-min) 0.0) @@ -948,9 +921,9 @@ ;; WARN: Return type mismatch int vs sound-id. (defmethod play-or-stop-lightning! mood-control ((obj mood-control) (arg0 sound-spec) (arg1 vector)) "Handles playing/stopping of the lightning sound - - Plays the lightning sound if we are not loading and `lightning-id` is zero - - Stops the lightning sound first if `lightning-id` is non-zero - Returns the current value of `lightning-id`" +- Plays the lightning sound if we are not loading and `lightning-id` is zero +- Stops the lightning sound first if `lightning-id` is non-zero +Returns the current value of `lightning-id`" (vector+! (new 'stack-no-clear 'vector) arg1 (math-camera-pos)) (the-as sound-id (cond ((or (load-in-progress? *level*) (movie?)) @@ -1385,10 +1358,9 @@ (none) ) -;; WARN: Return type mismatch int vs none. (defmethod update-mood-range! mood-control ((obj mood-control) (min-cloud float) (max-cloud float) (min-fog float) (max-fog float)) "Set the minimum and maximum ranges of clouds and fog - See [[mood-range]]" +See [[mood-range]]" (set! (-> obj range min-cloud) min-cloud) (set! (-> obj range max-cloud) max-cloud) (set! (-> obj range min-fog) min-fog) @@ -1397,16 +1369,11 @@ (none) ) -;; WARN: Return type mismatch int vs none. (defmethod set-time-for-random-weather! mood-control ((obj mood-control) (arg0 float) (arg1 float)) "Set the `time-until-random`'s cloud and fog values - See [[mood-weather]]" +See [[mood-weather]]" (set! (-> obj time-until-random cloud) arg0) (set! (-> obj time-until-random fog) arg1) 0 (none) ) - - - - diff --git a/goal_src/jak2/engine/nav/nav-control.gc b/goal_src/jak2/engine/nav/nav-control.gc index 1381737293..3d5f11060f 100644 --- a/goal_src/jak2/engine/nav/nav-control.gc +++ b/goal_src/jak2/engine/nav/nav-control.gc @@ -184,10 +184,10 @@ ;; WARN: Function get-nav-control has a return type of none, but the expression builder found a return statement. (defun get-nav-control ((arg0 process-drawable) (arg1 nav-mesh)) "Given a [[process-drawable]] get the associated [[nav-control]] using either: - - the provided `nav-mesh` arg - - the `nav-mesh` associated with the [[process-drawable]]'s [[entity]] - If no [[nav-mesh]] is set or found, set the [[entity]]'s [[entity-perm-status]] to TODO and return an error. - Note that this doesn't actually return the nav-control, but instead adds this process-drawable to the nav-mesh." +- the provided `nav-mesh` arg +- the `nav-mesh` associated with the [[process-drawable]]'s [[entity]] +If no [[nav-mesh]] is set or found, set the [[entity]]'s [[entity-perm-status]] to TODO and return an error. +Note that this doesn't actually return the nav-control, but instead adds this process-drawable to the nav-mesh." (if (not arg1) (set! arg1 (nav-mesh-from-res-tag (-> arg0 entity) 'nav-mesh-actor 0)) ) @@ -347,7 +347,7 @@ (defun add-nav-sphere ((nav nav-control) (sphere sphere) (max-spheres int)) "Adds the given [[sphere]] to the [[nav-control]]'s `sphere-array` so long as - `max-spheres` is less than [[nav-control]]'s `sphere-count`" +`max-spheres` is less than [[nav-control]]'s `sphere-count`" (local-vars (a2-4 float)) (rlet ((vf1 :class vf) (vf2 :class vf) diff --git a/goal_src/jak2/engine/nav/nav-enemy.gc b/goal_src/jak2/engine/nav/nav-enemy.gc index 715f6ec51e..35605b890f 100644 --- a/goal_src/jak2/engine/nav/nav-enemy.gc +++ b/goal_src/jak2/engine/nav/nav-enemy.gc @@ -1249,6 +1249,12 @@ ) (defmethod init-from-entity! nav-enemy ((obj nav-enemy) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (enemy-method-114 obj) (process-drawable-from-entity! obj arg0) (enemy-method-115 obj) @@ -2716,7 +2722,7 @@ ;; WARN: Return type mismatch quaternion vs none. (defmethod enemy-method-92 nav-enemy ((obj nav-enemy) (arg0 int) (arg1 nav-poly)) "TODO - nav-poly is a guess - @abstract" +@abstract" (let ((v1-0 arg0)) (when (or (zero? v1-0) (= v1-0 1) (= v1-0 2) (= v1-0 3)) (let ((a1-4 obj)) diff --git a/goal_src/jak2/engine/nav/nav-mesh-h.gc b/goal_src/jak2/engine/nav/nav-mesh-h.gc index d9cdc15b8c..84ecc686d1 100644 --- a/goal_src/jak2/engine/nav/nav-mesh-h.gc +++ b/goal_src/jak2/engine/nav/nav-mesh-h.gc @@ -108,7 +108,7 @@ (deftype nav-vertex (vector) "A typedef for `vector`, not used because our code looks nicer if everything is `vector`s anyway - and declared out of order (cannot use forward declared structures in inline arrays)" +and declared out of order (cannot use forward declared structures in inline arrays)" () :method-count-assert 9 :size-assert #x10 diff --git a/goal_src/jak2/engine/physics/rigid-body.gc b/goal_src/jak2/engine/physics/rigid-body.gc index a77b68627d..fb9be913de 100644 --- a/goal_src/jak2/engine/physics/rigid-body.gc +++ b/goal_src/jak2/engine/physics/rigid-body.gc @@ -733,6 +733,12 @@ ) (defmethod init-from-entity! rigid-body-object ((obj rigid-body-object) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (rigid-body-object-method-32 obj) (process-drawable-from-entity! obj arg0) (rigid-body-object-method-33 obj) diff --git a/goal_src/jak2/engine/process-drawable/process-taskable.gc b/goal_src/jak2/engine/process-drawable/process-taskable.gc index c811d12880..8093a44330 100644 --- a/goal_src/jak2/engine/process-drawable/process-taskable.gc +++ b/goal_src/jak2/engine/process-drawable/process-taskable.gc @@ -17,8 +17,8 @@ (defbehavior process-taskable-anim-loop process-taskable ((arg0 (function process-taskable object))) "Takes in a function and loops as long as it's return value is truthy - Seen take in - `true-func` which takes no args TODO - seems fishy - - a `(process-taskable process) lambda" +Seen take in - `true-func` which takes no args TODO - seems fishy +- a `(process-taskable process) lambda" (while (arg0 self) (let ((s5-0 (get-art-elem self))) (when (!= (ja-group) s5-0) @@ -43,7 +43,7 @@ ;; WARN: Return type mismatch art-joint-anim vs art-element. (defmethod get-art-elem process-taskable ((obj process-taskable)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (the-as art-element (if (> (-> obj skel active-channels) 0) (-> obj skel root-channel 0 frame-group) ) @@ -105,7 +105,7 @@ (none) ) :trans (behavior () - (let ((v1-1 (game-task-control-method-9 (-> self task)))) + (let ((v1-1 (get-current-task-event (-> self task)))) (if (and (nonzero? (-> v1-1 action)) (or (not (logtest? (-> self draw status) (draw-control-status on-screen))) (logtest? (-> v1-1 flags) (game-task-flags gatflag-01)) (< (- (-> self clock frame-counter) (-> self birth-time)) (seconds 0.1)) @@ -172,7 +172,7 @@ (none) ) :trans (behavior () - (let ((gp-0 (game-task-control-method-9 (-> self task)))) + (let ((gp-0 (get-current-task-event (-> self task)))) (cond ((= (-> gp-0 action) (game-task-action hide)) (if (or (not (logtest? (-> self draw status) (draw-control-status on-screen))) @@ -457,6 +457,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! process-taskable ((obj process-taskable) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (process-taskable-method-31 obj) (process-drawable-from-entity! obj arg0) diff --git a/goal_src/jak2/engine/target/gun/gun-blue-shot.gc b/goal_src/jak2/engine/target/gun/gun-blue-shot.gc index a0b9a690d3..0b9e5448e0 100644 --- a/goal_src/jak2/engine/target/gun/gun-blue-shot.gc +++ b/goal_src/jak2/engine/target/gun/gun-blue-shot.gc @@ -52,7 +52,7 @@ (defmethod draw-laser-sight gun-blue-shot ((obj gun-blue-shot)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" (let* ((s5-0 (ppointer->process (-> obj parent))) (s4-0 (-> *part-id-table* 196)) (s3-0 (get-field-spec-by-id s4-0 (sp-field-id spt-omega))) @@ -311,7 +311,7 @@ (defmethod init-proj-settings! gun-blue-shot ((obj gun-blue-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (with-pp (cpad-set-buzz! (-> *cpad-list* cpads 0) 1 204 (seconds 0.1)) (set! (-> obj init-pos quad) (-> obj root-override trans quad)) diff --git a/goal_src/jak2/engine/target/gun/gun-dark-shot.gc b/goal_src/jak2/engine/target/gun/gun-dark-shot.gc index 18637ba30c..3a01504797 100644 --- a/goal_src/jak2/engine/target/gun/gun-dark-shot.gc +++ b/goal_src/jak2/engine/target/gun/gun-dark-shot.gc @@ -144,7 +144,7 @@ (defmethod init-proj-settings! gun-dark-shot ((obj gun-dark-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj attack-mode) 'eco-dark) (vector-normalize! (-> obj root-override transv) (+ 225280.0 (* 225280.0 (-> obj charge-level)))) (set! (-> obj part) (create-launch-control (-> *part-group-id-table* 72) obj)) diff --git a/goal_src/jak2/engine/target/gun/gun-util.gc b/goal_src/jak2/engine/target/gun/gun-util.gc index a58c2d2396..f18821a48d 100644 --- a/goal_src/jak2/engine/target/gun/gun-util.gc +++ b/goal_src/jak2/engine/target/gun/gun-util.gc @@ -18,7 +18,7 @@ (defmethod init-proj-settings! gun-eject ((obj gun-eject)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-gun" (the-as (pointer uint32) #f))) @@ -50,7 +50,7 @@ (defmethod init-proj-settings! gun-mag-yellow ((obj gun-mag-yellow)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-ammo-yellow" (the-as (pointer uint32) #f))) @@ -76,7 +76,7 @@ (defmethod init-proj-settings! gun-mag-red ((obj gun-mag-red)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-ammo-red" (the-as (pointer uint32) #f))) @@ -102,7 +102,7 @@ (defmethod init-proj-settings! gun-mag-blue ((obj gun-mag-blue)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-ammo-blue" (the-as (pointer uint32) #f))) @@ -128,7 +128,7 @@ (defmethod init-proj-settings! gun-mag-dark ((obj gun-mag-dark)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-ammo-dark" (the-as (pointer uint32) #f))) diff --git a/goal_src/jak2/engine/target/gun/gun-yellow-shot.gc b/goal_src/jak2/engine/target/gun/gun-yellow-shot.gc index 20857b6259..5795e88dd5 100644 --- a/goal_src/jak2/engine/target/gun/gun-yellow-shot.gc +++ b/goal_src/jak2/engine/target/gun/gun-yellow-shot.gc @@ -65,7 +65,7 @@ (defmethod draw-laser-sight gun-yellow-shot ((obj gun-yellow-shot)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" (draw-beam (-> *part-id-table* 227) (-> obj tail-pos) (-> obj starting-dir) #f #t) 0 (none) @@ -375,7 +375,7 @@ (defmethod init-proj-settings! gun-yellow-shot ((obj gun-yellow-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj hit-actor?) #f) (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (cpad-set-buzz! (-> *cpad-list* cpads 0) 1 204 (seconds 0.1)) diff --git a/goal_src/jak2/engine/target/mech_suit/carry-h.gc b/goal_src/jak2/engine/target/mech_suit/carry-h.gc index 58259c0391..8d58be9e62 100644 --- a/goal_src/jak2/engine/target/mech_suit/carry-h.gc +++ b/goal_src/jak2/engine/target/mech_suit/carry-h.gc @@ -115,7 +115,7 @@ (defmethod distance-from-destination carry-info ((obj carry-info) (arg0 carry-info)) "Returns the distance from the current `point` and the provided [[carry-info]]'s `point`. - Returns `-1.0` if it exceeds the maximum allowed" +Returns `-1.0` if it exceeds the maximum allowed" (let* ((f28-0 (vector-y-angle (vector-! (new 'stack-no-clear 'vector) (-> arg0 point) (-> obj point)))) (f30-0 (fabs (deg-diff f28-0 (vector-y-angle (-> obj normal))))) (f28-1 (fabs (deg-diff (+ 32768.0 f28-0) (vector-y-angle (-> arg0 normal))))) diff --git a/goal_src/jak2/engine/target/mech_suit/mech-part.gc b/goal_src/jak2/engine/target/mech_suit/mech-part.gc index 05f6ca3d19..99cd3a1892 100644 --- a/goal_src/jak2/engine/target/mech_suit/mech-part.gc +++ b/goal_src/jak2/engine/target/mech_suit/mech-part.gc @@ -134,6 +134,7 @@ ) (defun mech-spawn-thruster ((arg0 mech-info) (arg1 vector) (arg2 vector) (arg3 float) (arg4 float)) + "Draws the mech's thrusters" (rlet ((acc :class vf) (vf0 :class vf) (vf4 :class vf) diff --git a/goal_src/jak2/engine/target/mech_suit/mech.gc b/goal_src/jak2/engine/target/mech_suit/mech.gc index 6533b266d3..8b674602b3 100644 --- a/goal_src/jak2/engine/target/mech_suit/mech.gc +++ b/goal_src/jak2/engine/target/mech_suit/mech.gc @@ -145,7 +145,7 @@ :code (behavior () (change-parent self *entity-pool*) (ja-channel-set! 1) - (ja :group! (-> self draw art-group data 3)) + (ja :group! mech-mech-idle-ja) (set! (-> self root-override root-prim prim-core action) (collide-action solid can-ride no-standon)) (set! (-> self root-override penetrated-by) (penetrate)) 0.0 @@ -228,7 +228,7 @@ (case event-type (('draw) (ja-channel-set! 1) - (ja :group! (-> self draw art-group data 3)) + (ja :group! mech-mech-idle-ja) (set! (-> self root-override root-prim prim-core action) (collide-action solid can-ride no-standon)) (set! (-> self root-override penetrated-by) (penetrate)) (transform-post) @@ -399,6 +399,12 @@ ) (defmethod init-from-entity! mech ((obj mech) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (mech-init arg0 (the-as matrix3 #f) (the-as handle #f) 100.0) (none) ) @@ -416,7 +422,10 @@ ) -(defskelgroup skel-mech-target mech 42 44 ((43 (meters 999999))) :bounds (static-spherem 0 0 0 4)) +(defskelgroup skel-mech-target mech mech-target-lod0-jg mech-target-idle-ja + ((mech-target-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 4) + ) (defstate idle (mech-target) :virtual #t diff --git a/goal_src/jak2/engine/target/target-tube.gc b/goal_src/jak2/engine/target/target-tube.gc index d3952b71b9..4ab6f1b270 100644 --- a/goal_src/jak2/engine/target/target-tube.gc +++ b/goal_src/jak2/engine/target/target-tube.gc @@ -1123,6 +1123,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! slide-control ((obj slide-control) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) diff --git a/goal_src/jak2/engine/target/target-turret-shot.gc b/goal_src/jak2/engine/target/target-turret-shot.gc index 1aa9e6efe4..51caafce22 100644 --- a/goal_src/jak2/engine/target/target-turret-shot.gc +++ b/goal_src/jak2/engine/target/target-turret-shot.gc @@ -388,7 +388,7 @@ ;; WARN: Return type mismatch projectile-options vs none. (defmethod init-proj-settings! turret-shot ((obj turret-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (cpad-set-buzz! (-> *cpad-list* cpads 0) 1 204 (seconds 0.1)) (set! (-> obj attack-mode) 'turret) diff --git a/goal_src/jak2/engine/ui/text.gc b/goal_src/jak2/engine/ui/text.gc index d5ac3931d7..b6c6404f9d 100644 --- a/goal_src/jak2/engine/ui/text.gc +++ b/goal_src/jak2/engine/ui/text.gc @@ -228,7 +228,7 @@ ;; WARN: Found some very strange gotos. Check result carefully, this is not well tested. (defun load-game-text-info ((arg0 string) (arg1 (pointer object)) (arg2 kheap)) "Load text, if needed. txt-name is the group name, curr-text is the _symbol_ for - the game-text-info, and heap is the heap to load to. The heap will be cleared." +the game-text-info, and heap is the heap to load to. The heap will be cleared." (local-vars (v0-3 int) (sv-16 game-text-info) (sv-24 int) (sv-32 int) (sv-40 int)) (set! sv-16 (the-as game-text-info (-> arg1 0))) (set! sv-24 (the-as int (-> *setting-control* user-current language))) @@ -304,8 +304,8 @@ (defun load-level-text-files ((arg0 int)) "Load the text files needed for level idx. - This function made more sense back when text files were split up, but in the end they put everything - in a single text group and file." +This function made more sense back when text files were split up, but in the end they put everything +in a single text group and file." (if (or *level-text-file-load-flag* (>= arg0 0)) (load-game-text-info "common" (&-> '*common-text* value) *common-text-heap*) ) diff --git a/goal_src/jak2/engine/util/sync-info-h.gc b/goal_src/jak2/engine/util/sync-info-h.gc index 1de9196649..e33e495010 100644 --- a/goal_src/jak2/engine/util/sync-info-h.gc +++ b/goal_src/jak2/engine/util/sync-info-h.gc @@ -14,7 +14,7 @@ ;; DECOMP BEGINS (deftype sync-info-params (structure) - ((sync-type basic :offset-assert 0) + ((sync-type symbol :offset-assert 0) (sync-flags sync-flags :offset-assert 8) (entity basic :offset-assert 16) (period uint32 :offset-assert 20) diff --git a/goal_src/jak2/levels/atoll/ash1-course.gc b/goal_src/jak2/levels/atoll/ash1-course.gc index d4f8e94237..5168c91316 100644 --- a/goal_src/jak2/levels/atoll/ash1-course.gc +++ b/goal_src/jak2/levels/atoll/ash1-course.gc @@ -48,7 +48,7 @@ :on-set (lambda ((arg0 ashelin-battle)) (clear-speech-flags! arg0) (move-to-point! (-> arg0 root-override2) (the-as vector (-> arg0 ash-course spots 0))) - (let ((v1-7 (game-task-control-method-9 (-> arg0 task)))) + (let ((v1-7 (get-current-task-event (-> arg0 task)))) (if (= (-> v1-7 action) (game-task-action say)) (add-process *gui-control* @@ -92,7 +92,7 @@ ) (set! (-> arg1 waypoint-time0) (-> pp clock frame-counter)) ) - (let ((s5-0 (game-task-control-method-9 (-> arg1 task)))) + (let ((s5-0 (get-current-task-event (-> arg1 task)))) (cond ((and (nonzero? (-> arg1 waypoint-time0)) (and (>= (- (-> pp clock frame-counter) (-> arg1 waypoint-time0)) (seconds 1)) @@ -285,7 +285,7 @@ ) ) ) - (let ((v1-20 (game-task-control-method-9 (-> arg0 task)))) + (let ((v1-20 (get-current-task-event (-> arg0 task)))) (if (= (-> v1-20 action) (game-task-action say)) (add-process *gui-control* @@ -307,7 +307,7 @@ (lambda ((arg0 asht-wait-spot) (arg1 ashelin-battle)) (with-pp (when (>= (- (-> pp clock frame-counter) (-> arg1 waypoint-time0)) (seconds 1.5)) - (let ((s5-0 (game-task-control-method-9 (-> arg1 task)))) + (let ((s5-0 (get-current-task-event (-> arg1 task)))) (when (and (= (-> s5-0 action) (game-task-action say)) (not (channel-active? arg1 (the-as uint 0))) (scene-play arg1 (the-as string (-> s5-0 scene)) #f) diff --git a/goal_src/jak2/levels/atoll/sig0-course.gc b/goal_src/jak2/levels/atoll/sig0-course.gc index 2cce49b625..dcf7038d42 100644 --- a/goal_src/jak2/levels/atoll/sig0-course.gc +++ b/goal_src/jak2/levels/atoll/sig0-course.gc @@ -215,7 +215,7 @@ ) (clear-speech-flags! arg0) (logior! (-> arg0 focus-status) (focus-status disable)) - (let ((v1-9 (game-task-control-method-9 (-> arg0 task)))) + (let ((v1-9 (get-current-task-event (-> arg0 task)))) (if (= (-> v1-9 action) (game-task-action say)) (add-process *gui-control* @@ -245,7 +245,7 @@ (when (and (>= f2-2 -40960.0) (or (>= 40960.0 f1-0) (< f2-2 24576.0) (and (< f2-2 192512.0) (or (< f0-1 -81920.0) (< 53248.0 f0-1)))) ) - (let ((v1-19 (game-task-control-method-9 (-> arg1 task)))) + (let ((v1-19 (get-current-task-event (-> arg1 task)))) (cond ((= (-> v1-19 action) (game-task-action say)) (when (scene-play arg1 (the-as string (-> v1-19 scene)) #f) diff --git a/goal_src/jak2/levels/castle/pad/caspad-obs.gc b/goal_src/jak2/levels/castle/pad/caspad-obs.gc index 64474f95ff..943451a7a7 100644 --- a/goal_src/jak2/levels/castle/pad/caspad-obs.gc +++ b/goal_src/jak2/levels/castle/pad/caspad-obs.gc @@ -15,25 +15,33 @@ :size-assert #x174 :flag-assert #x3201000174 (:methods - (cpad-elevator-method-49 (_type_ symbol) none 49) + (configure-collision (_type_ symbol) none 49) ) ) -(defskelgroup skel-cpad-elevator cpad-elevator 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 18)) +(defskelgroup skel-cpad-elevator cpad-elevator cpad-elevator-lod0-jg cpad-elevator-idle-ja + ((cpad-elevator-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 18) + ) (defmethod get-art-group cpad-elevator ((obj cpad-elevator)) "@returns The associated [[art-group]]" (art-group-get-by-name *level* "skel-cpad-elevator" (the-as (pointer uint32) #f)) ) -(defmethod elevator-method-43 cpad-elevator ((obj cpad-elevator) (arg0 vector) (arg1 float) (arg2 float)) - (let ((s4-0 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg1 'interp)) - (a0-3 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg2 'interp)) - (v1-3 (-> obj root-override trans)) +(defmethod move-between-points cpad-elevator ((obj cpad-elevator) (vec vector) (point-a float) (point-b float)) + "Move between two points on the elevator's path +@param vec TODO not sure +@param point-a The first point fetched from the elevator's path +@param point-b The second point fetched from the path +@see [[path-control]] and [[elevator]]" + (let ((path-point-a (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) point-a 'interp)) + (path-point-b (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) point-b 'interp)) + (elevator-trans (-> obj root-override trans)) ) - (when (and (< (-> a0-3 y) (-> s4-0 y)) (< (-> arg0 y) (+ -8192.0 (-> v1-3 y)))) - (let ((s4-2 (vector-! (new 'stack-no-clear 'vector) arg0 v1-3))) + (when (and (< (-> path-point-b y) (-> path-point-a y)) (< (-> vec y) (+ -8192.0 (-> elevator-trans y)))) + (let ((s4-2 (vector-! (new 'stack-no-clear 'vector) vec elevator-trans))) (vector-inv-orient-by-quat! s4-2 s4-2 (-> obj root-override quat)) (and (< (fabs (-> s4-2 x)) 49152.0) (< (fabs (-> s4-2 z)) 49152.0)) ) @@ -41,35 +49,37 @@ ) ) -(defmethod elevator-method-45 cpad-elevator ((obj cpad-elevator)) - "@returns Stub, or always returns [[#t]]" - (let* ((gp-0 *target*) - (a0-2 (if (type? gp-0 process-focusable) - gp-0 - ) - ) +(defmethod commited-to-ride? cpad-elevator ((obj cpad-elevator)) + "@returns if the target is considered within the elevator area enough to begin descending/ascending" + (let* ((target *target*) + (target-proc (if (type? target process-focusable) + target + ) + ) ) - (when a0-2 - (let* ((v1-1 (get-trans a0-2 0)) - (gp-2 (vector-! (new 'stack-no-clear 'vector) v1-1 (-> obj root-override trans))) + (when target-proc + (let* ((target-pos (get-trans target-proc 0)) + (dist-from-center (vector-! (new 'stack-no-clear 'vector) target-pos (-> obj root-override trans))) ) - (vector-inv-orient-by-quat! gp-2 gp-2 (-> obj root-override quat)) - (and (< (fabs (-> gp-2 x)) 40960.0) (< (fabs (-> gp-2 z)) 40960.0)) + (vector-inv-orient-by-quat! dist-from-center dist-from-center (-> obj root-override quat)) + (and (< (fabs (-> dist-from-center x)) 40960.0) (< (fabs (-> dist-from-center z)) 40960.0)) ) ) ) ) -(defmethod cpad-elevator-method-49 cpad-elevator ((obj cpad-elevator) (arg0 symbol)) - (let ((v1-3 (-> (the-as collide-shape-prim-group (-> obj root-override root-prim)) child 1))) +(defmethod configure-collision cpad-elevator ((obj cpad-elevator) (collide-with-jak? symbol)) + "Appropriately sets the collision on the elevator +@param collide-with-jak? If set, the elevator will collide with Jak" + (let ((prim (-> (the-as collide-shape-prim-group (-> obj root-override root-prim)) child 1))) (cond - (arg0 - (set! (-> v1-3 prim-core collide-as) (collide-spec obstacle pusher)) - (set! (-> v1-3 prim-core collide-with) (collide-spec jak player-list)) + (collide-with-jak? + (set! (-> prim prim-core collide-as) (collide-spec obstacle pusher)) + (set! (-> prim prim-core collide-with) (collide-spec jak player-list)) ) (else - (set! (-> v1-3 prim-core collide-as) (collide-spec)) - (set! (-> v1-3 prim-core collide-with) (collide-spec)) + (set! (-> prim prim-core collide-as) (collide-spec)) + (set! (-> prim prim-core collide-with) (collide-spec)) 0 ) ) @@ -80,13 +90,13 @@ (defstate running (cpad-elevator) :virtual #t :enter (behavior () - (let ((t9-0 (-> (method-of-type elevator running) enter))) - (if t9-0 - (t9-0) + (let ((func (-> (method-of-type elevator running) enter))) + (if func + (func) ) ) - (when (logtest? (-> self elevator-status) (elevator-status elevator-status-0)) - (cpad-elevator-method-49 self #t) + (when (logtest? (-> self elevator-status) (elevator-status waiting-to-descend)) + (configure-collision self #t) (set-setting! 'jump #f 0 0) ) (none) @@ -94,25 +104,25 @@ :exit (behavior () (sound-stop (-> self sound-id)) (sound-play "dig-elevate-end") - (let ((t9-3 (-> (method-of-type elevator running) exit))) - (if t9-3 - (t9-3) + (let ((func (-> (method-of-type elevator running) exit))) + (if func + (func) ) ) (none) ) :code (behavior () - (let ((gp-0 (-> self clock frame-counter))) - (until (>= (- (-> self clock frame-counter) gp-0) (seconds 1)) + (let ((frame-counter (-> self clock frame-counter))) + (until (>= (- (-> self clock frame-counter) frame-counter) (seconds 1)) (suspend) ) ) - (logior! (-> self elevator-status) (elevator-status elevator-status-1)) + (logior! (-> self elevator-status) (elevator-status waiting-to-ascend)) (until #f (sound-play "dig-elevate" :id (-> self sound-id)) (suspend) (if (= (-> self path-pos) 1.0) - (logclear! (-> self elevator-status) (elevator-status elevator-status-1)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-ascend)) ) ) #f @@ -123,25 +133,27 @@ (defstate arrived (cpad-elevator) :virtual #t :enter (behavior () - (let ((t9-0 (-> (method-of-type elevator arrived) enter))) - (if t9-0 - (t9-0) + (let ((func (-> (method-of-type elevator arrived) enter))) + (if func + (func) ) ) - (when (logtest? (-> self elevator-status) (elevator-status elevator-status-0)) - (cpad-elevator-method-49 self #f) + (when (logtest? (-> self elevator-status) (elevator-status waiting-to-descend)) + (configure-collision self #f) (remove-setting! 'jump) ) (none) ) ) -(defmethod elevator-method-40 cpad-elevator ((obj cpad-elevator)) - "TODO - need to figure out some flags to be confident about this" +;; WARN: Return type mismatch object vs none. +(defmethod activate-elevator cpad-elevator ((obj cpad-elevator)) + "Puts the elevator initially into the correct state. This is typically based upon game completion" (if (task-node-closed? (game-task-node dig-knock-down-introduction)) (go (method-of-object obj arrived)) (go (method-of-object obj dormant)) ) + (none) ) (defmethod deactivate cpad-elevator ((obj cpad-elevator)) @@ -151,8 +163,8 @@ ) ;; WARN: Return type mismatch ambient-sound vs none. -(defmethod clear-ambient-sound! cpad-elevator ((obj cpad-elevator)) - "Might be a virtual function, but clears the object's [[ambient-sound]]" +(defmethod set-ambient-sound! cpad-elevator ((obj cpad-elevator)) + "Sets the elevator's [[ambient-sound]] up" (set! (-> obj sound) (new 'process 'ambient-sound (static-sound-spec "cpad-elevator-l" :fo-max 70) (-> obj root-override trans)) ) @@ -160,52 +172,54 @@ ) ;; WARN: Return type mismatch sound-id vs none. -(defmethod base-plat-method-33 cpad-elevator ((obj cpad-elevator)) - (let ((s5-0 (+ (-> obj path curve num-cverts) -1))) - (calc-dist-between-points! obj 0 s5-0) - (calc-dist-between-points! obj s5-0 0) +(defmethod init-plat! cpad-elevator ((obj cpad-elevator)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." + (let ((last-path-index (+ (-> obj path curve num-cverts) -1))) + (calc-dist-between-points! obj 0 last-path-index) + (calc-dist-between-points! obj last-path-index 0) ) (set! (-> obj sound-id) (new-sound-id)) (none) ) ;; WARN: Return type mismatch collide-shape-moving vs none. -(defmethod base-plat-method-31 cpad-elevator ((obj cpad-elevator)) - "TODO - collision stuff" - (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) - (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) - (set! (-> s5-0 reaction) cshape-reaction-default) - (set! (-> s5-0 no-reaction) +(defmethod init-plat-collision! cpad-elevator ((obj cpad-elevator)) + "TODO - collision stuff for setting up the platform" + (let ((cshape-moving (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) + (set! (-> cshape-moving dynam) (copy *standard-dynamics* 'process)) + (set! (-> cshape-moving reaction) cshape-reaction-default) + (set! (-> cshape-moving no-reaction) (the-as (function collide-shape-moving collide-query vector vector object) nothing) ) - (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) - (set! (-> s5-0 total-prims) (the-as uint 3)) - (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle camera-blocker pusher)) - (set! (-> s4-0 prim-core collide-with) (collide-spec jak bot player-list)) - (set! (-> s4-0 prim-core action) (collide-action solid rideable)) - (set! (-> s4-0 transform-index) 3) - (set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 73728.0) - (set! (-> s5-0 root-prim) s4-0) + (let ((prim-group (new 'process 'collide-shape-prim-group cshape-moving (the-as uint 2) 0))) + (set! (-> cshape-moving total-prims) (the-as uint 3)) + (set! (-> prim-group prim-core collide-as) (collide-spec obstacle camera-blocker pusher)) + (set! (-> prim-group prim-core collide-with) (collide-spec jak bot player-list)) + (set! (-> prim-group prim-core action) (collide-action solid rideable)) + (set! (-> prim-group transform-index) 3) + (set-vector! (-> prim-group local-sphere) 0.0 0.0 0.0 73728.0) + (set! (-> cshape-moving root-prim) prim-group) ) - (pusher-init s5-0) - (let ((v1-15 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-15 prim-core collide-as) (collide-spec obstacle camera-blocker pusher)) - (set! (-> v1-15 prim-core collide-with) (collide-spec jak bot player-list)) - (set! (-> v1-15 prim-core action) (collide-action solid rideable)) - (set! (-> v1-15 transform-index) 3) - (set-vector! (-> v1-15 local-sphere) 0.0 0.0 0.0 73728.0) + (pusher-init cshape-moving) + (let ((prim-mesh-for-jak (new 'process 'collide-shape-prim-mesh cshape-moving (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh-for-jak prim-core collide-as) (collide-spec obstacle camera-blocker pusher)) + (set! (-> prim-mesh-for-jak prim-core collide-with) (collide-spec jak bot player-list)) + (set! (-> prim-mesh-for-jak prim-core action) (collide-action solid rideable)) + (set! (-> prim-mesh-for-jak transform-index) 3) + (set-vector! (-> prim-mesh-for-jak local-sphere) 0.0 0.0 0.0 73728.0) ) - (let ((v1-17 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 1) (the-as uint 0)))) - (set! (-> v1-17 prim-core action) (collide-action solid)) - (set! (-> v1-17 transform-index) 3) - (set-vector! (-> v1-17 local-sphere) 0.0 0.0 0.0 73728.0) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape-moving (the-as uint 1) (the-as uint 0)))) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 0.0 0.0 73728.0) ) - (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w))) - (let ((v1-20 (-> s5-0 root-prim))) - (set! (-> s5-0 backup-collide-as) (-> v1-20 prim-core collide-as)) - (set! (-> s5-0 backup-collide-with) (-> v1-20 prim-core collide-with)) + (set! (-> cshape-moving nav-radius) (* 0.75 (-> cshape-moving root-prim local-sphere w))) + (let ((root-prim (-> cshape-moving root-prim))) + (set! (-> cshape-moving backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape-moving backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> obj root-override) s5-0) + (set! (-> obj root-override) cshape-moving) ) (none) ) diff --git a/goal_src/jak2/levels/city/common/height-map-h.gc b/goal_src/jak2/levels/city/common/height-map-h.gc index 11c043518b..5dc1a91be0 100644 --- a/goal_src/jak2/levels/city/common/height-map-h.gc +++ b/goal_src/jak2/levels/city/common/height-map-h.gc @@ -11,6 +11,9 @@ ;; DECOMP BEGINS (deftype xz-height-map (structure) + "TODO - not terribly well understood yet, but this is used for the traffic height map +this is primarily used to store a massive amount of bytes in the `data` field +all initialized from static data." ((offset float 3 :offset-assert 0) (x-offset float :offset 0) (y-offset float :offset 4) @@ -39,6 +42,6 @@ (defun get-traffic-height ((arg0 vector)) "@returns The value of [[xz-height-map::9]] using [[*traffic-height-map*]] and the [[vector]] provided - @see [[xz-height-map::9]]" +@see [[xz-height-map::9]]" (xz-height-map-method-9 *traffic-height-map* arg0) ) diff --git a/goal_src/jak2/levels/city/common/nav-graph-h.gc b/goal_src/jak2/levels/city/common/nav-graph-h.gc index b03ae26bab..8823a489a6 100644 --- a/goal_src/jak2/levels/city/common/nav-graph-h.gc +++ b/goal_src/jak2/levels/city/common/nav-graph-h.gc @@ -41,11 +41,11 @@ (:methods (nav-branch-method-9 (_type_) none 9) (nav-branch-method-10 (_type_ object int) none 10) - (nav-branch-method-11 (_type_) float 11) - (nav-branch-method-12 (_type_) float 12) - (nav-branch-method-13 (_type_) float 13) + (get-density (_type_) float 11) + (get-speed-limit (_type_) float 12) + (get-width (_type_) float 13) (user-limit-reached? (_type_) symbol 14) - (nav-branch-method-15 (_type_) symbol 15) + (dest-node-id-at-max? (_type_) symbol 15) (nav-branch-method-16 (_type_ float) none 16) (nav-branch-method-17 (_type_ float) none 17) (nav-branch-method-18 (_type_ float) none 18) @@ -87,26 +87,26 @@ (get-position (_type_ vector) vector 18) (calc-sine-and-cosine! (_type_ vector) vector 19) (get-angle (_type_) float 20) - (nav-node-method-21 (_type_) float 21) + (get-radius (_type_) float 21) ) ) -(defmethod nav-branch-method-11 nav-branch ((obj nav-branch)) +(defmethod get-density nav-branch ((obj nav-branch)) "TODO - @returns `density * 0.0078125` - is this some kind of trick?" +@returns `density * 0.0078125` - is this some kind of trick?" (* 0.0078125 (the float (-> obj density))) ) -(defmethod nav-branch-method-12 nav-branch ((obj nav-branch)) +(defmethod get-speed-limit nav-branch ((obj nav-branch)) "TODO - @returns `speed-limit * 1024.0`" +@returns `speed-limit * 1024.0`" (* 1024.0 (the float (-> obj speed-limit))) ) -(defmethod nav-branch-method-13 nav-branch ((obj nav-branch)) +(defmethod get-width nav-branch ((obj nav-branch)) "TODO - @returns `width * 256.0`" +@returns `width * 256.0`" (* 256.0 (the float (-> obj width))) ) @@ -114,14 +114,15 @@ (>= (-> obj user-count) (-> obj max-user-count)) ) -(defmethod nav-branch-method-15 nav-branch ((obj nav-branch)) - "TODO - checks that `dest-node`'s `id` isn't #FFFF" +(defmethod dest-node-id-at-max? nav-branch ((obj nav-branch)) + "@returns if `dest-node`'s `id` is equal to `#FFFF` +@see [[nav-node]]" (!= (-> obj dest-node id) #xffff) ) -(defmethod nav-node-method-21 nav-node ((obj nav-node)) +(defmethod get-radius nav-node ((obj nav-node)) "TODO - @returns `radius * 1024.0" +@returns `radius * 1024.0" (* 1024.0 (the float (-> obj radius))) ) @@ -131,8 +132,8 @@ (defmethod calc-sine-and-cosine! nav-node ((obj nav-node) (ret vector)) "Computes the sine and cosine of the `angle`. - @param! ret The result - @returns Nothing, the result will be in `ret`" +@param! ret The result +@returns Nothing, the result will be in `ret`" (let ((angle (the float (-> obj angle))) (sin-cos-result (new 'stack-no-clear 'vector)) ) @@ -147,7 +148,7 @@ (defmethod get-position nav-node ((obj nav-node) (ret vector)) "@param! ret The [[vector]] that is modified to hold the result - @returns the `position` [[vector]] with a `w` component of `1.0`" +@returns the `position` [[vector]] with a `w` component of `1.0`" (set! (-> ret quad) (-> obj position quad)) (set! (-> ret w) 1.0) ret @@ -228,8 +229,8 @@ (defmethod node-at-idx nav-graph ((obj nav-graph) (idx int)) "Get the `nav-node` at a given position. - @param idx The position in the `node-array` to return - @returns the [[nav-node]] if it can be found, otherwise return [[#f]]" +@param idx The position in the `node-array` to return +@returns the [[nav-node]] if it can be found, otherwise return [[#f]]" (let ((v0-0 (the-as nav-node #f))) (if (and (>= idx 0) (< idx (-> obj node-count))) (set! v0-0 (-> obj node-array idx)) diff --git a/goal_src/jak2/levels/city/common/vehicle-rider.gc b/goal_src/jak2/levels/city/common/vehicle-rider.gc index d779d7cf0f..d4ccb455f5 100644 --- a/goal_src/jak2/levels/city/common/vehicle-rider.gc +++ b/goal_src/jak2/levels/city/common/vehicle-rider.gc @@ -261,6 +261,12 @@ ;; WARN: Return type mismatch entity-perm-status vs none. (defmethod init-from-entity! vehicle-rider ((obj vehicle-rider) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (process-entity-status! obj (entity-perm-status dead) #t) (none) ) @@ -312,8 +318,8 @@ ) -(defskelgroup skel-citizen-norm-rider citizen-norm-rider 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-citizen-norm-rider citizen-norm-rider citizen-norm-rider-lod0-jg citizen-norm-rider-idle-ja + ((citizen-norm-rider-lod0-mg (meters 20)) (citizen-norm-rider-lod2-mg (meters 999999))) :bounds (static-spherem 0 0 0 3) ) @@ -411,8 +417,8 @@ ) -(defskelgroup skel-crimson-guard-rider crimson-guard 0 4 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-crimson-guard-rider crimson-guard crimson-guard-lod0-jg crimson-guard-idle-ja + ((crimson-guard-lod0-mg (meters 20)) (crimson-guard-lod2-mg (meters 999999))) :bounds (static-spherem 0 0 0 3) ) diff --git a/goal_src/jak2/levels/city/market/ctymark-obs.gc b/goal_src/jak2/levels/city/market/ctymark-obs.gc index dda1c517d6..4866cb6065 100644 --- a/goal_src/jak2/levels/city/market/ctymark-obs.gc +++ b/goal_src/jak2/levels/city/market/ctymark-obs.gc @@ -595,23 +595,16 @@ ) ) -;; WARN: Return type mismatch number vs float. +;; WARN: Return type mismatch number vs none. (defun check-market-piece-ground ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo)) - (the-as - float - (cond - ((and (>= 35225.6 (-> arg2 launchrot y)) (>= 0.0 (-> arg1 vel-sxvel y))) - (set! (-> arg2 launchrot y) 35225.6) - ) - (else - (let ((v0-0 (the-as number (* (max 1 (the-as int (-> *display* clock (-> arg1 clock-index) sparticle-data x))) 2))) - ) - (set! (-> arg1 next-time) (the-as uint v0-0)) - v0-0 - ) - ) + "TODO" + (if (and (>= 35225.6 (-> arg2 launchrot y)) (>= 0.0 (-> arg1 vel-sxvel y))) + (set! (-> arg2 launchrot y) 35225.6) + (set! (-> arg1 next-time) + (the-as uint (* (max 1 (the-as int (-> *display* clock (-> arg1 clock-index) sparticle-data x))) 2)) + ) ) - ) + (none) ) (defpart 4359 @@ -1017,13 +1010,13 @@ :event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block)) (case event-type (('attack) - (let ((a1-2 (-> event param 1))) + (let ((attack-info (-> event param 1))) (when proc - (let ((a2-1 (find-offending-process-focusable proc (the-as attack-info a1-2)))) - (when a2-1 + (let ((attacking-proc (find-offending-process-focusable proc (the-as attack-info attack-info)))) + (when attacking-proc (forward-up-nopitch->inv-matrix (-> self explode-matrix) - (vector-! (new 'stack-no-clear 'vector) (-> a2-1 root-override trans) (-> self root-override trans)) + (vector-! (new 'stack-no-clear 'vector) (-> attacking-proc root-override trans) (-> self root-override trans)) *up-vector* ) (set! (-> self explode-matrix trans quad) (-> self root-override trans quad)) @@ -1046,9 +1039,9 @@ :virtual #t :code (behavior () (logior! (-> self focus-status) (focus-status dead)) - (let ((v1-3 (-> self root-override root-prim))) - (set! (-> v1-3 prim-core collide-as) (collide-spec)) - (set! (-> v1-3 prim-core collide-with) (collide-spec)) + (let ((root-prim (-> self root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (logior! (-> self draw status) (draw-control-status no-draw)) @@ -1064,8 +1057,8 @@ :to self ) (process-entity-status! self (entity-perm-status dead) #t) - (let ((gp-1 (-> self clock frame-counter))) - (until (>= (- (-> self clock frame-counter) gp-1) (seconds 5)) + (let ((frame (-> self clock frame-counter))) + (until (>= (- (-> self clock frame-counter) frame) (seconds 5)) (suspend) ) ) @@ -1097,21 +1090,27 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! market-basket-a ((obj market-basket-a) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 0.0 7372.8 0.0 8192.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 8192.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) prim-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s4-0 penetrated-by) + (set! (-> cshape penetrated-by) (penetrate generic-attack lunge @@ -1131,7 +1130,7 @@ knocked ) ) - (set! (-> obj root-override) s4-0) + (set! (-> obj root-override) cshape) ) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1172,21 +1171,27 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! market-basket-b ((obj market-basket-b) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 0.0 7372.8 0.0 8192.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 8192.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) prim-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s4-0 penetrated-by) + (set! (-> cshape penetrated-by) (penetrate generic-attack lunge @@ -1206,7 +1211,7 @@ knocked ) ) - (set! (-> obj root-override) s4-0) + (set! (-> obj root-override) cshape) ) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1247,21 +1252,27 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! market-crate ((obj market-crate) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 0.0 7372.8 0.0 8192.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 8192.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) prim-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s4-0 penetrated-by) + (set! (-> cshape penetrated-by) (penetrate generic-attack lunge @@ -1281,7 +1292,7 @@ knocked ) ) - (set! (-> obj root-override) s4-0) + (set! (-> obj root-override) cshape) ) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1322,21 +1333,27 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! market-sack-a ((obj market-sack-a) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 0.0 7372.8 0.0 8192.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 8192.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) prim-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s4-0 penetrated-by) + (set! (-> cshape penetrated-by) (penetrate generic-attack lunge @@ -1356,7 +1373,7 @@ knocked ) ) - (set! (-> obj root-override) s4-0) + (set! (-> obj root-override) cshape) ) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1397,21 +1414,27 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! market-sack-b ((obj market-sack-b) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 0.0 7372.8 0.0 8192.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 8192.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) prim-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s4-0 penetrated-by) + (set! (-> cshape penetrated-by) (penetrate generic-attack lunge @@ -1431,7 +1454,7 @@ knocked ) ) - (set! (-> obj root-override) s4-0) + (set! (-> obj root-override) cshape) ) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1449,22 +1472,22 @@ ) (defun market-activate ((arg0 level)) - (let* ((v1-0 (-> arg0 name)) - (gp-0 (cond - ((= v1-0 'ctymarka) - (new 'static 'boxed-array :type int32 5 0 0 #x64f01c00 #x64f01d00) + (let* ((name (-> arg0 name)) + (int-arr (cond + ((= name 'ctymarka) + (new 'static 'boxed-array :type int32 5 0 0 #x64f01c00 #x64f01d00) + ) + ((= name 'ctymarkb) + (new 'static 'boxed-array :type int32 5 0 0 #x65001c00 #x65001d00) + ) + ) ) - ((= v1-0 'ctymarkb) - (new 'static 'boxed-array :type int32 5 0 0 #x65001c00 #x65001d00) - ) - ) - ) ) (set! (-> (get-field-spec-by-id (-> *part-id-table* 4361) (sp-field-id spt-userdata)) initial-valuef) - (the-as float gp-0) + (the-as float int-arr) ) (set! (-> (get-field-spec-by-id (-> *part-id-table* 4360) (sp-field-id spt-userdata)) initial-valuef) - (the-as float gp-0) + (the-as float int-arr) ) ) (setup-user-array (-> *part-id-table* 4355) "wood-plain-debris") diff --git a/goal_src/jak2/levels/city/misc/collection_task/collection-task.gc b/goal_src/jak2/levels/city/misc/collection_task/collection-task.gc index 8e0d4f9340..ad64aae5aa 100644 --- a/goal_src/jak2/levels/city/misc/collection_task/collection-task.gc +++ b/goal_src/jak2/levels/city/misc/collection_task/collection-task.gc @@ -44,10 +44,10 @@ (none) ) -(defskelgroup skel-krew-collection-item krew-moneybag 0 3 - ((1 (meters 999999))) +(defskelgroup skel-krew-collection-item krew-moneybag krew-moneybag-lod0-jg krew-moneybag-idle-ja + ((krew-moneybag-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 4) - :shadow 2 + :shadow krew-moneybag-shadow-mg ) (deftype krew-collection-item (process-drawable) @@ -65,57 +65,59 @@ (defmethod find-ground krew-collection-item ((obj krew-collection-item)) - (let ((s4-0 #f)) - (let ((gp-0 (new 'stack-no-clear 'collide-query-with-2vec))) - (set! (-> gp-0 vec quad) (-> obj root trans quad)) - (set! (-> gp-0 cquery start-pos quad) (-> gp-0 vec quad)) - (vector-reset! (-> gp-0 vec2)) - (set! (-> gp-0 vec2 y) 1.0) - (set-vector! (-> gp-0 cquery move-dist) 0.0 -40960.0 0.0 1.0) - (let ((v1-5 (-> gp-0 cquery))) - (set! (-> v1-5 radius) 1024.0) - (set! (-> v1-5 collide-with) (collide-spec backgnd)) - (set! (-> v1-5 ignore-process0) #f) - (set! (-> v1-5 ignore-process1) #f) - (set! (-> v1-5 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1)) - (set! (-> v1-5 action-mask) (collide-action solid)) + "TODO - understand the collision query stuff more +@returns whether or not the [[self]] is above the ground" + (let ((on-ground? #f)) + (let ((query (new 'stack-no-clear 'collide-query-with-2vec))) + (set! (-> query vec quad) (-> obj root trans quad)) + (set! (-> query cquery start-pos quad) (-> query vec quad)) + (vector-reset! (-> query vec2)) + (set! (-> query vec2 y) 1.0) + (set-vector! (-> query cquery move-dist) 0.0 -40960.0 0.0 1.0) + (let ((_query (-> query cquery))) + (set! (-> _query radius) 1024.0) + (set! (-> _query collide-with) (collide-spec backgnd)) + (set! (-> _query ignore-process0) #f) + (set! (-> _query ignore-process1) #f) + (set! (-> _query ignore-pat) + (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1) + ) + (set! (-> _query action-mask) (collide-action solid)) ) - (let ((f0-6 (fill-and-probe-using-line-sphere *collide-cache* (-> gp-0 cquery)))) - (when (>= f0-6 0.0) - (vector+float*! (-> gp-0 vec) (-> gp-0 cquery start-pos) (-> gp-0 cquery move-dist) f0-6) - (set! (-> gp-0 vec2 quad) (-> gp-0 cquery best-other-tri normal quad)) - (set! (-> gp-0 vec y) (+ 4915.2 (-> gp-0 vec y))) - (set! s4-0 #t) - (format #t "krew-collection-item::find-ground: ground y ~M~%" (-> gp-0 vec y)) + (let ((dist (fill-and-probe-using-line-sphere *collide-cache* (-> query cquery)))) + (when (>= dist 0.0) + (vector+float*! (-> query vec) (-> query cquery start-pos) (-> query cquery move-dist) dist) + (set! (-> query vec2 quad) (-> query cquery best-other-tri normal quad)) + (set! (-> query vec y) (+ 4915.2 (-> query vec y))) + (set! on-ground? #t) + (format #t "krew-collection-item::find-ground: ground y ~M~%" (-> query vec y)) ) ) - (set! (-> obj root trans quad) (-> gp-0 vec quad)) - (forward-up-nopitch->quaternion (-> obj root quat) (new 'static 'vector :z 1.0 :w 1.0) (-> gp-0 vec2)) + (set! (-> obj root trans quad) (-> query vec quad)) + (forward-up-nopitch->quaternion (-> obj root quat) (new 'static 'vector :z 1.0 :w 1.0) (-> query vec2)) ) - s4-0 + on-ground? ) ) (defstate idle (krew-collection-item) :virtual #t :trans (behavior () - (let ((v1-0 *target*) - (gp-0 (new 'stack-no-clear 'vector)) + (let ((target *target*) + (vec (new 'stack-no-clear 'vector)) ) - (when v1-0 - (set! (-> gp-0 quad) (-> v1-0 control trans quad)) - (set! (-> gp-0 w) 4096.0) - (when (logtest? (focus-status pilot) (-> v1-0 focus-status)) - (let ((a1-4 (handle->process (-> v1-0 pilot vehicle)))) - (set! (-> gp-0 quad) - (-> (the-as collide-shape (-> (the-as process-drawable a1-4) root)) root-prim prim-core world-sphere quad) - ) + (when target + (set! (-> vec quad) (-> target control trans quad)) + (set! (-> vec w) 4096.0) + (when (logtest? (focus-status pilot) (-> target focus-status)) + (let ((vehicle (handle->process (-> target pilot vehicle)))) + (set! (-> vec quad) (-> (the-as vehicle vehicle) root-override-2 root-prim prim-core world-sphere quad)) ) ) - (let ((f0-1 (vector-vector-distance-squared (-> self root trans) gp-0)) - (f1-1 (+ 12288.0 (-> gp-0 w))) + (let ((dist-from-target (vector-vector-distance-squared (-> self root trans) vec)) + (pickup-dist (+ 12288.0 (-> vec w))) ) - (when (>= (* f1-1 f1-1) f0-1) + (when (>= (* pickup-dist pickup-dist) dist-from-target) (sound-play "skill-pickup") (set! (-> *game-info* counter) (+ -1.0 (-> *game-info* counter))) (go-virtual die) @@ -126,16 +128,16 @@ (none) ) :code (behavior () - (let ((gp-0 (new 'stack-no-clear 'task-arrow-params))) - (let ((v1-0 (new 'stack-no-clear 'vector))) - (set! (-> v1-0 quad) (-> self root trans quad)) - (set! (-> v1-0 y) (+ -6144.0 (-> v1-0 y))) - (set! (-> gp-0 pos quad) (-> v1-0 quad)) + (let ((beam-params (new 'stack-no-clear 'task-arrow-params))) + (let ((beam-location (new 'stack-no-clear 'vector))) + (set! (-> beam-location quad) (-> self root trans quad)) + (set! (-> beam-location y) (+ -6144.0 (-> beam-location y))) + (set! (-> beam-params pos quad) (-> beam-location quad)) ) - (quaternion-identity! (-> gp-0 quat)) - (set! (-> gp-0 flags) (task-arrow-flags)) - (set! (-> gp-0 map-icon) (the-as uint 15)) - (task-arrow-spawn gp-0 (the-as task-arrow self)) + (quaternion-identity! (-> beam-params quat)) + (set! (-> beam-params flags) (task-arrow-flags)) + (set! (-> beam-params map-icon) (the-as uint 15)) + (task-arrow-spawn beam-params (the-as task-arrow self)) ) (until #f (ja-no-eval :group! (ja-group) @@ -161,11 +163,13 @@ ) ) -;; WARN: Return type mismatch object vs krew-collection-item. -(defbehavior krew-collection-item-init-by-other krew-collection-item ((arg0 vector)) +;; WARN: Return type mismatch object vs none. +(defbehavior krew-collection-item-init-by-other krew-collection-item ((position vector)) + "Given a [[vector]] defining it's position, create a [[krew-collection-item]] +@param position The intended position of the item" (set! (-> self level) (level-get *level* 'lsack)) (set! (-> self root) (new 'process 'trsqv)) - (set! (-> self root trans quad) (-> arg0 quad)) + (set! (-> self root trans quad) (-> position quad)) (quaternion-identity! (-> self root quat)) (set-vector! (-> self root scale) 3.0 3.0 3.0 1.0) (initialize-skeleton @@ -181,18 +185,22 @@ (new 'process 'shadow-control -12288.0 12288.0 614400.0 (shadow-flags shdf00 shdf04) 245760.0) ) ) - (the-as krew-collection-item (go-virtual idle)) + (go-virtual idle) + (none) ) ;; WARN: Return type mismatch process vs krew-collection-item. -(defun krew-collection-item-spawn ((arg0 process) (arg1 vector)) - (let ((gp-0 (the-as process #f))) - (let ((v1-1 (process-spawn krew-collection-item arg1 :to arg0))) - (if v1-1 - (set! gp-0 (-> v1-1 0)) +(defun krew-collection-item-spawn ((proc process) (position vector)) + "Given a [[vector]] defining it's position, create a [[krew-collection-item]] via [[process-spawn]] +@param proc The [[process]] that is used to spawn the new item +@param position The intended position of the item" + (let ((new-krew-item (the-as process #f))) + (let ((new-proc (process-spawn krew-collection-item position :to proc))) + (if new-proc + (set! new-krew-item (-> new-proc 0)) ) ) - (the-as krew-collection-item gp-0) + (the-as krew-collection-item new-krew-item) ) ) @@ -200,83 +208,84 @@ *game-info* 73 0 - (lambda :behavior task-manager - () - (set! (-> self begin-pos quad) (-> (new 'static 'vector :x -245760.0 :y 45056.0 :z 5468160.0 :w 1.0) quad)) - (set-setting! 'exclusive-task #f 0 (-> self node-info task)) - (let ((gp-0 *traffic-manager*) - (s5-0 (new 'stack 'traffic-object-spawn-params)) - ) - (set! (-> s5-0 position quad) (-> self begin-pos quad)) - (quaternion-axis-angle! (-> s5-0 rotation) 0.0 1.0 0.0 16384.0) - (set! (-> s5-0 object-type) (the-as uint 13)) - (set! (-> s5-0 behavior) (the-as uint 0)) - (set! (-> s5-0 id) (the-as uint 0)) - (set! (-> s5-0 proc) #f) - (send-event gp-0 'spawn-object s5-0) - ) - (set! (-> self start-time) 0) - (set! (-> self count) -1) - (set! (-> self max-count) 14) - (set! (-> self data-vector 0 quad) - (-> (new 'static 'vector :x 1282048.0 :y 37925.273 :z 5492736.0 :w 1.0) quad) - ) - (set! (-> self data-vector 1 quad) - (-> (new 'static 'vector :x 2392064.0 :y 23235.379 :z 5980160.0 :w 1.0) quad) - ) - (set! (-> self data-vector 2 quad) - (-> (new 'static 'vector :x 3231744.0 :y 38680.984 :z 4788224.0 :w 1.0) quad) - ) - (set! (-> self data-vector 3 quad) - (-> (new 'static 'vector :x 3829760.0 :y 38680.984 :z 3682304.0 :w 1.0) quad) - ) - (set! (-> self data-vector 4 quad) - (-> (new 'static 'vector :x 4325376.0 :y 38680.984 :z 2564096.0 :w 1.0) quad) - ) - (set! (-> self data-vector 5 quad) - (-> (new 'static 'vector :x 4014080.0 :y 38680.984 :z 1822720.0 :w 1.0) quad) - ) - (set! (-> self data-vector 6 quad) - (-> (new 'static 'vector :x 3698688.0 :y 38680.984 :z 1728512.0 :w 1.0) quad) - ) - (set! (-> self data-vector 7 quad) - (-> (new 'static 'vector :x 3792896.0 :y 38680.984 :z 2387968.0 :w 1.0) quad) - ) - (set! (-> self data-vector 8 quad) - (-> (new 'static 'vector :x 4616192.0 :y 38680.984 :z 2863104.0 :w 1.0) quad) - ) - (set! (-> self data-vector 9 quad) - (-> (new 'static 'vector :x 3633152.0 :y 38680.984 :z 3477504.0 :w 1.0) quad) - ) - (set! (-> self data-vector 10 quad) - (-> (new 'static 'vector :x 3993600.0 :y 38680.984 :z 4378624.0 :w 1.0) quad) - ) - (set! (-> self data-vector 11 quad) - (-> (new 'static 'vector :x 3112960.0 :y 23472.947 :z 5390336.0 :w 1.0) quad) - ) - (set! (-> self data-vector 12 quad) - (-> (new 'static 'vector :x 1789952.0 :y 37616.027 :z 5455872.0 :w 1.0) quad) - ) - (set! (-> self data-vector 13 quad) - (-> (new 'static 'vector :x 237568.0 :y 37541.477 :z 5439488.0 :w 1.0) quad) - ) - (set! (-> self data-int32 0) #x2904) - (set! (-> self data-int32 1) 9000) - (set! (-> self data-int32 2) 9000) - (set! (-> self data-int32 3) 9000) - (set! (-> self data-int32 4) 9000) - (set! (-> self data-int32 5) 9000) - (set! (-> self data-int32 6) 3000) - (set! (-> self data-int32 7) 6000) - (set! (-> self data-int32 8) 9000) - (set! (-> self data-int32 9) 9000) - (set! (-> self data-int32 10) 9000) - (set! (-> self data-int32 11) 9000) - (set! (-> self data-int32 12) 7500) - (set! (-> self data-int32 13) 7500) - (let ((f0-1 (the float (-> self max-count)))) - (set! (-> *game-info* counter) f0-1) - (the-as object f0-1) + (the-as + (function object) + (lambda :behavior task-manager + () + (set! (-> self begin-pos quad) (-> (new 'static 'vector :x -245760.0 :y 45056.0 :z 5468160.0 :w 1.0) quad)) + (set-setting! 'exclusive-task #f 0 (-> self node-info task)) + (let ((traffic-manager *traffic-manager*) + (traffic-obj-params (new 'stack 'traffic-object-spawn-params)) + ) + (set! (-> traffic-obj-params position quad) (-> self begin-pos quad)) + (quaternion-axis-angle! (-> traffic-obj-params rotation) 0.0 1.0 0.0 16384.0) + (set! (-> traffic-obj-params object-type) (the-as uint 13)) + (set! (-> traffic-obj-params behavior) (the-as uint 0)) + (set! (-> traffic-obj-params id) (the-as uint 0)) + (set! (-> traffic-obj-params proc) #f) + (send-event traffic-manager 'spawn-object traffic-obj-params) + ) + (set! (-> self start-time) 0) + (set! (-> self count) -1) + (set! (-> self max-count) 14) + (set! (-> self data-vector 0 quad) + (-> (new 'static 'vector :x 1282048.0 :y 37925.273 :z 5492736.0 :w 1.0) quad) + ) + (set! (-> self data-vector 1 quad) + (-> (new 'static 'vector :x 2392064.0 :y 23235.379 :z 5980160.0 :w 1.0) quad) + ) + (set! (-> self data-vector 2 quad) + (-> (new 'static 'vector :x 3231744.0 :y 38680.984 :z 4788224.0 :w 1.0) quad) + ) + (set! (-> self data-vector 3 quad) + (-> (new 'static 'vector :x 3829760.0 :y 38680.984 :z 3682304.0 :w 1.0) quad) + ) + (set! (-> self data-vector 4 quad) + (-> (new 'static 'vector :x 4325376.0 :y 38680.984 :z 2564096.0 :w 1.0) quad) + ) + (set! (-> self data-vector 5 quad) + (-> (new 'static 'vector :x 4014080.0 :y 38680.984 :z 1822720.0 :w 1.0) quad) + ) + (set! (-> self data-vector 6 quad) + (-> (new 'static 'vector :x 3698688.0 :y 38680.984 :z 1728512.0 :w 1.0) quad) + ) + (set! (-> self data-vector 7 quad) + (-> (new 'static 'vector :x 3792896.0 :y 38680.984 :z 2387968.0 :w 1.0) quad) + ) + (set! (-> self data-vector 8 quad) + (-> (new 'static 'vector :x 4616192.0 :y 38680.984 :z 2863104.0 :w 1.0) quad) + ) + (set! (-> self data-vector 9 quad) + (-> (new 'static 'vector :x 3633152.0 :y 38680.984 :z 3477504.0 :w 1.0) quad) + ) + (set! (-> self data-vector 10 quad) + (-> (new 'static 'vector :x 3993600.0 :y 38680.984 :z 4378624.0 :w 1.0) quad) + ) + (set! (-> self data-vector 11 quad) + (-> (new 'static 'vector :x 3112960.0 :y 23472.947 :z 5390336.0 :w 1.0) quad) + ) + (set! (-> self data-vector 12 quad) + (-> (new 'static 'vector :x 1789952.0 :y 37616.027 :z 5455872.0 :w 1.0) quad) + ) + (set! (-> self data-vector 13 quad) + (-> (new 'static 'vector :x 237568.0 :y 37541.477 :z 5439488.0 :w 1.0) quad) + ) + (set! (-> self data-int32 0) #x2904) + (set! (-> self data-int32 1) 9000) + (set! (-> self data-int32 2) 9000) + (set! (-> self data-int32 3) 9000) + (set! (-> self data-int32 4) 9000) + (set! (-> self data-int32 5) 9000) + (set! (-> self data-int32 6) 3000) + (set! (-> self data-int32 7) 6000) + (set! (-> self data-int32 8) 9000) + (set! (-> self data-int32 9) 9000) + (set! (-> self data-int32 10) 9000) + (set! (-> self data-int32 11) 9000) + (set! (-> self data-int32 12) 7500) + (set! (-> self data-int32 13) 7500) + (set! (-> *game-info* counter) (the float (-> self max-count))) + (none) ) ) ) @@ -292,37 +301,37 @@ *game-info* 73 2 - (lambda :behavior task-manager - () - (check-time self) - (when (>= (-> self count) 0) - (cond - ((handle->process (-> self slave 0)) - #f - ) - (else - (let ((gp-0 (-> self count))) - (cond - ((< gp-0 (-> self max-count)) - (let ((a0-6 (krew-collection-item-spawn self (-> self data-vector gp-0)))) - (when a0-6 - (set! (-> self slave 0) (process->handle a0-6)) - (set! (-> self time-limit) (the-as time-frame (-> self data-int32 gp-0))) - (set! (-> self start-time) (-> self clock frame-counter)) - (let ((v0-1 (the-as object (+ (-> self count) 1)))) - (set! (-> self count) (the-as int v0-1)) - v0-1 + (the-as + (function object) + (lambda :behavior task-manager + () + (check-time self) + (when (>= (-> self count) 0) + (cond + ((handle->process (-> self slave 0)) + ) + (else + (let ((task-count (-> self count))) + (cond + ((< task-count (-> self max-count)) + (let ((krew-item (krew-collection-item-spawn self (-> self data-vector task-count)))) + (when krew-item + (set! (-> self slave 0) (process->handle krew-item)) + (set! (-> self time-limit) (the-as time-frame (-> self data-int32 task-count))) + (set! (-> self start-time) (-> self clock frame-counter)) + (+! (-> self count) 1) ) ) ) - ) - (else - (go-virtual complete) + (else + (go-virtual complete) + ) ) ) ) ) ) + (none) ) ) ) @@ -333,11 +342,15 @@ 3 (lambda :behavior task-manager () - (local-vars (v1-2 symbol)) - (until (or v1-2 (and *target* (logtest? (focus-status pilot) (-> *target* focus-status)))) + (local-vars (moved-beyond-start? symbol)) + (until (or moved-beyond-start? (and *target* (logtest? (focus-status pilot) (-> *target* focus-status)))) (suspend) - (let ((f0-0 122880.0)) - (set! v1-2 (< (* f0-0 f0-0) (vector-vector-distance-squared (-> self begin-pos) (target-pos 0)))) + (let ((min-start-distance 122880.0)) + (set! moved-beyond-start? + (< (* min-start-distance min-start-distance) + (vector-vector-distance-squared (-> self begin-pos) (target-pos 0)) + ) + ) ) ) (set-setting! 'airlock #f 0 0) @@ -366,14 +379,18 @@ *game-info* 73 4 - (lambda :behavior task-manager - () - (send-event *traffic-manager* 'decrease-alert-level 0) - (send-event *traffic-manager* 'set-alert-duration 9000) - (set! (-> self state-time) (-> self clock frame-counter)) - (while (< (- (-> self clock frame-counter) (-> self state-time)) (seconds 2)) - (suspend) + (the-as + (function object) + (lambda :behavior task-manager + () + (send-event *traffic-manager* 'decrease-alert-level 0) + (send-event *traffic-manager* 'set-alert-duration 9000) + (set! (-> self state-time) (-> self clock frame-counter)) + (while (< (- (-> self clock frame-counter) (-> self state-time)) (seconds 2)) + (suspend) + ) + (talker-spawn-func (-> *talker-speech* 88) *entity-pool* (target-pos 0) (the-as region #f)) + (none) ) - (the-as object (talker-spawn-func (-> *talker-speech* 88) *entity-pool* (target-pos 0) (the-as region #f))) ) ) diff --git a/goal_src/jak2/levels/city/oracle/oracle-scenes.gc b/goal_src/jak2/levels/city/oracle/oracle-scenes.gc index cb3a466e5e..9a2df5f2a4 100644 --- a/goal_src/jak2/levels/city/oracle/oracle-scenes.gc +++ b/goal_src/jak2/levels/city/oracle/oracle-scenes.gc @@ -838,7 +838,7 @@ (defmethod get-art-elem oracle-npc ((obj oracle-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (logior! (-> obj draw status) (draw-control-status no-draw-bounds)) (let ((v1-4 (-> obj root-override root-prim))) (set! (-> v1-4 prim-core collide-as) (collide-spec)) diff --git a/goal_src/jak2/levels/city/port/race/errol-chal-part.gc b/goal_src/jak2/levels/city/port/race/errol-chal-part.gc index 597b20545a..c79fe3bb39 100644 --- a/goal_src/jak2/levels/city/port/race/errol-chal-part.gc +++ b/goal_src/jak2/levels/city/port/race/errol-chal-part.gc @@ -123,6 +123,7 @@ ) (defun city-race-borrow-level-activate () + "Sets up the `errol-ring-01` and `errol-ring-02` particles" (setup-user-array (-> *part-id-table* 4603) "errol-ring-01") (setup-user-array (-> *part-id-table* 4605) "errol-ring-02") (none) diff --git a/goal_src/jak2/levels/common/airlock.gc b/goal_src/jak2/levels/common/airlock.gc index 2f8d70d33b..2f50e1be06 100644 --- a/goal_src/jak2/levels/common/airlock.gc +++ b/goal_src/jak2/levels/common/airlock.gc @@ -827,6 +827,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! com-airlock-outer ((obj com-airlock-outer) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 1024) (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) @@ -892,6 +898,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! com-airlock-inner ((obj com-airlock-inner) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 1024) (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) @@ -970,7 +982,13 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-entry-gate ((obj fort-entry-gate) (arg0 entity-actor)) - (stack-size-set! (-> obj main-thread) 1024) ;; added + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (stack-size-set! (-> obj main-thread) 1024) (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1032,7 +1050,13 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! hip-door-a ((obj hip-door-a) (arg0 entity-actor)) - (stack-size-set! (-> obj main-thread) 1024) ;; added + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (stack-size-set! (-> obj main-thread) 1024) (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1096,7 +1120,13 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-mar-door ((obj tomb-mar-door) (arg0 entity-actor)) - (stack-size-set! (-> obj main-thread) 1024) ;; added + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (stack-size-set! (-> obj main-thread) 1024) (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) @@ -1155,6 +1185,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! pal-throne-door ((obj pal-throne-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1217,6 +1253,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! vin-door-ctyinda ((obj vin-door-ctyinda) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1279,6 +1321,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! under-door ((obj under-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1338,6 +1386,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! oracle-door ((obj oracle-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 1024) (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) diff --git a/goal_src/jak2/levels/common/battle.gc b/goal_src/jak2/levels/common/battle.gc index 655a0d94e6..276a0c2b34 100644 --- a/goal_src/jak2/levels/common/battle.gc +++ b/goal_src/jak2/levels/common/battle.gc @@ -1866,6 +1866,12 @@ ) (defmethod init-from-entity! battle ((obj battle) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask enemy) (-> obj mask))) (let ((s4-0 (new 'process 'trsqv))) (set! (-> obj root) s4-0) diff --git a/goal_src/jak2/levels/common/elec-gate.gc b/goal_src/jak2/levels/common/elec-gate.gc index fef8b46ed9..dbf996a08c 100644 --- a/goal_src/jak2/levels/common/elec-gate.gc +++ b/goal_src/jak2/levels/common/elec-gate.gc @@ -88,7 +88,7 @@ :fade-to-color (new 'static 'rgba :r #xbf :b #x8f :a #x5) :fade-start-factor 0.2 :fade-time 120.0 - :texture #xc08300 + :texture (new 'static 'texture-id :index #x83 :page #xc) :reduction 0.42 :num-points 16 :box-size 8601.6 @@ -107,7 +107,7 @@ :fade-to-color (new 'static 'rgba :r #xbf :b #x8f :a #x5) :fade-start-factor 0.2 :fade-time 120.0 - :texture #xc08300 + :texture (new 'static 'texture-id :index #x83 :page #xc) :reduction 0.42 :num-points 12 :box-size 3072.0 @@ -730,7 +730,7 @@ (defmethod set-elec-scale-if-close! elec-gate ((obj elec-gate) (arg0 float)) "If [[target]]'s position is within `80` [[meters]], set the scale to the value provided - @see [[elec-gate::29]]" +@see [[elec-gate::29]]" (if (< (vector-vector-distance (-> obj root trans) (target-pos 0)) 327680.0) (set-elec-scale! obj arg0) ) @@ -801,9 +801,9 @@ (defmethod set-state! elec-gate ((obj elec-gate)) "If either [[actor-option::17]] is set on the [[elec-gate]] or the related subtask is completed - make the gate `idle`. +make the gate `idle`. - Otherwise, the gate will be `active`." +Otherwise, the gate will be `active`." (if (or (logtest? (actor-option user17) (-> obj fact options)) (and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status subtask-complete))) ) @@ -815,6 +815,12 @@ ) (defmethod init-from-entity! elec-gate ((obj elec-gate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (set! (-> obj entity) arg0) @@ -852,10 +858,10 @@ (set! (-> obj dividing-wall pos quad) (-> s5-3 quad)) (set! (-> obj dividing-wall dir quad) (-> v1-28 quad)) (vector+float*! (the-as vector (-> obj plane)) s5-3 v1-28 12288.0) - (set! (-> (the-as vector (&-> obj stack 320)) quad) (-> v1-28 quad)) + (set! (-> (the-as vector (-> obj plane 0 dir)) quad) (-> v1-28 quad)) (vector-float*! v1-28 v1-28 -1.0) - (vector+float*! (the-as vector (&-> obj stack 336)) s5-3 v1-28 12288.0) - (set! (-> (the-as vector (&-> obj stack 352)) quad) (-> v1-28 quad)) + (vector+float*! (the-as vector (-> obj plane 1)) s5-3 v1-28 12288.0) + (set! (-> (the-as vector (-> obj plane 1 dir)) quad) (-> v1-28 quad)) ) (set! (-> obj wall-xz) (vector-vector-distance @@ -900,8 +906,8 @@ (defmethod set-elec-scale! fort-elec-gate ((obj fort-elec-gate) (scale float)) "Calls associated mood functions to set the scale with the value provided - @see mood-funcs - @see mood-funcs2" +@see mood-funcs +@see mood-funcs2" (set-fordumpa-electricity-scale! scale) (set-forresca-electricity-scale! scale (-> obj palette-id)) (set-forrescb-electricity-scale! scale (-> obj palette-id)) @@ -928,8 +934,8 @@ (defmethod set-elec-scale! drill-elec-gate ((obj drill-elec-gate) (arg0 float)) "Calls associated mood functions to set the scale with the value provided - @see mood-funcs - @see mood-funcs2" +@see mood-funcs +@see mood-funcs2" (set-drill-electricity-scale! arg0 (-> obj palette-id)) 0 (none) @@ -962,8 +968,8 @@ (defmethod set-elec-scale! castle-elec-gate ((obj castle-elec-gate) (arg0 float)) "Calls associated mood functions to set the scale with the value provided - @see mood-funcs - @see mood-funcs2" +@see mood-funcs +@see mood-funcs2" (set-castle-electricity-scale! arg0) 0 (none) @@ -978,7 +984,7 @@ :fade-to-color (new 'static 'rgba :r #xbf :b #x8f :a #x5) :fade-start-factor 0.2 :fade-time 120.0 - :texture #xc08300 + :texture (new 'static 'texture-id :index #x83 :page #xc) :reduction 0.42 :num-points 16 :box-size 16793.6 @@ -997,7 +1003,7 @@ :fade-to-color (new 'static 'rgba :r #xbf :b #x8f :a #x5) :fade-start-factor 0.2 :fade-time 120.0 - :texture #xc08300 + :texture (new 'static 'texture-id :index #x83 :page #xc) :reduction 0.42 :num-points 12 :box-size 17408.0 @@ -1030,8 +1036,8 @@ (defmethod set-elec-scale! palroof-elec-gate ((obj palroof-elec-gate) (arg0 float)) "Calls associated mood functions to set the scale with the value provided - @see mood-funcs - @see mood-funcs2" +@see mood-funcs +@see mood-funcs2" (set-palroof-electricity-scale! arg0 (-> obj palette-id)) 0 (none) diff --git a/goal_src/jak2/levels/common/enemy/bouncer.gc b/goal_src/jak2/levels/common/enemy/bouncer.gc index c078fbab87..181827b23b 100644 --- a/goal_src/jak2/levels/common/enemy/bouncer.gc +++ b/goal_src/jak2/levels/common/enemy/bouncer.gc @@ -230,6 +230,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! bouncer ((obj bouncer) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mods) #f) (bouncer-method-24 obj) (process-drawable-from-entity! obj arg0) diff --git a/goal_src/jak2/levels/common/enemy/guards/guard-conversation.gc b/goal_src/jak2/levels/common/enemy/guards/guard-conversation.gc index 173d8c8560..8cd73d2c06 100644 --- a/goal_src/jak2/levels/common/enemy/guards/guard-conversation.gc +++ b/goal_src/jak2/levels/common/enemy/guards/guard-conversation.gc @@ -375,6 +375,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! guard-conversation ((obj guard-conversation) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (set! (-> obj triggered?) #f) (set! (-> obj root) (new 'process 'trsqv)) diff --git a/goal_src/jak2/levels/common/enemy/guards/transport-level.gc b/goal_src/jak2/levels/common/enemy/guards/transport-level.gc index 03d41ef4cf..88aa0ba2ff 100644 --- a/goal_src/jak2/levels/common/enemy/guards/transport-level.gc +++ b/goal_src/jak2/levels/common/enemy/guards/transport-level.gc @@ -39,8 +39,8 @@ ) -(defskelgroup skel-transport-level transport 0 4 - ((1 (meters 20)) (2 (meters 40)) (3 (meters 999999))) +(defskelgroup skel-transport-level transport transport-lod0-jg transport-idle-ja + ((transport-lod0-mg (meters 20)) (transport-lod1-mg (meters 40)) (transport-lod2-mg (meters 999999))) :bounds (static-spherem 0 5 0 17) ) @@ -345,6 +345,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! transport-level ((obj transport-level) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (transport-level-method-31 obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/goal_src/jak2/levels/common/enemy/metalhead_bearer/centurion.gc b/goal_src/jak2/levels/common/enemy/metalhead_bearer/centurion.gc index 4bacd254f8..93a9b946ce 100644 --- a/goal_src/jak2/levels/common/enemy/metalhead_bearer/centurion.gc +++ b/goal_src/jak2/levels/common/enemy/metalhead_bearer/centurion.gc @@ -170,7 +170,7 @@ (defmethod init-proj-settings! centurion-shot ((obj centurion-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" ((the-as (function projectile none) (find-parent-method centurion-shot 31)) obj) (set! (-> obj max-speed) 327680.0) (set! (-> obj timeout) (seconds 1.25)) diff --git a/goal_src/jak2/levels/common/entities/fort-floor-spike.gc b/goal_src/jak2/levels/common/entities/fort-floor-spike.gc index dc6a054993..24cfc9f349 100644 --- a/goal_src/jak2/levels/common/entities/fort-floor-spike.gc +++ b/goal_src/jak2/levels/common/entities/fort-floor-spike.gc @@ -33,7 +33,7 @@ (deftype fort-floor-spike (process-drawable) ((pos-table (inline-array vector) :offset-assert 200) (spike-row spike-row-info-array :offset-assert 204) - (spike-dim basic 2 :offset-assert 208) + (spike-dim int32 2 :offset-assert 208) (attack-id int32 :offset-assert 216) (no-overlap-timer uint64 :offset-assert 224) ) @@ -43,9 +43,9 @@ :flag-assert #x18007000e8 (:methods (idle () _type_ :state 20) - (fort-floor-spike-method-21 (_type_) none 21) - (fort-floor-spike-method-22 (_type_) collide-shape-moving 22) - (fort-floor-spike-method-23 (_type_) symbol 23) + (init-spike-joints! (_type_) none 21) + (init-spike-collision! (_type_) collide-shape-moving 22) + (init-periodic-animation! (_type_) symbol 23) ) ) @@ -65,18 +65,21 @@ (none) ) -(defmethod fort-floor-spike-method-21 fort-floor-spike ((obj fort-floor-spike)) +(defmethod init-spike-joints! fort-floor-spike ((obj fort-floor-spike)) + "Initializes the skeleton and joints for the spike" 0 (none) ) ;; WARN: Return type mismatch int vs collide-shape-moving. -(defmethod fort-floor-spike-method-22 fort-floor-spike ((obj fort-floor-spike)) +(defmethod init-spike-collision! fort-floor-spike ((obj fort-floor-spike)) + "Initializes the collision for the particular spike" (the-as collide-shape-moving 0) ) ;; WARN: Return type mismatch int vs symbol. -(defmethod fort-floor-spike-method-23 fort-floor-spike ((obj fort-floor-spike)) +(defmethod init-periodic-animation! fort-floor-spike ((obj fort-floor-spike)) + "Initialzes the periodic animation of the spikes (exit and re-entry)" (the-as symbol 0) ) @@ -89,39 +92,41 @@ (('touched) (when (+ (-> self clock frame-counter) (seconds -2)) (let* ((s3-0 proc) - (s4-0 (if (type? s3-0 process-drawable) - (the-as process-drawable s3-0) - ) - ) + (proc-draw (if (type? s3-0 process-drawable) + (the-as process-drawable s3-0) + ) + ) ) - (when s4-0 - (let ((s3-1 (vector-x-quaternion! (new 'stack-no-clear 'vector) (-> self root quat))) - (s4-1 - (vector-normalize! (vector-! (new 'stack-no-clear 'vector) (-> s4-0 root trans) (-> self root trans)) 1.0) - ) + (when proc-draw + (let ((spike-quat (vector-x-quaternion! (new 'stack-no-clear 'vector) (-> self root quat))) + (touched-from-dir (vector-normalize! + (vector-! (new 'stack-no-clear 'vector) (-> proc-draw root trans) (-> self root trans)) + 1.0 + ) + ) ) - (vector-flatten! s4-1 s4-1 s3-1) - (set! (-> s4-1 y) 0.0) - (vector-normalize! s4-1 1.0) - (let ((a1-8 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-8 from) (process->ppointer self)) - (set! (-> a1-8 num-params) 2) - (set! (-> a1-8 message) 'attack) - (set! (-> a1-8 param 0) (-> event param 0)) - (let ((v1-11 (new 'static 'attack-info :mask (attack-info-mask vector mode shove-back shove-up id)))) - (set! (-> v1-11 id) (the-as uint (-> self attack-id))) - (set! (-> v1-11 mode) 'deadly) - (set! (-> v1-11 shove-up) 24576.0) - (set! (-> v1-11 shove-back) 16384.0) - (set! (-> v1-11 vector quad) (-> s4-1 quad)) - (set! (-> a1-8 param 1) (the-as uint v1-11)) + (vector-flatten! touched-from-dir touched-from-dir spike-quat) + (set! (-> touched-from-dir y) 0.0) + (vector-normalize! touched-from-dir 1.0) + (let ((response (new 'stack-no-clear 'event-message-block))) + (set! (-> response from) (process->ppointer self)) + (set! (-> response num-params) 2) + (set! (-> response message) 'attack) + (set! (-> response param 0) (-> event param 0)) + (let ((attack-info (new 'static 'attack-info :mask (attack-info-mask vector mode shove-back shove-up id)))) + (set! (-> attack-info id) (the-as uint (-> self attack-id))) + (set! (-> attack-info mode) 'deadly) + (set! (-> attack-info shove-up) 24576.0) + (set! (-> attack-info shove-back) 16384.0) + (set! (-> attack-info vector quad) (-> touched-from-dir quad)) + (set! (-> response param 1) (the-as uint attack-info)) ) - (send-event-function proc a1-8) + (send-event-function proc response) ) ) - (let ((v0-0 (-> self clock frame-counter))) - (set! (-> self no-overlap-timer) (the-as uint v0-0)) - v0-0 + (let ((frame-count (-> self clock frame-counter))) + (set! (-> self no-overlap-timer) (the-as uint frame-count)) + frame-count ) ) ) @@ -137,7 +142,7 @@ ) :code (the-as (function none :behavior fort-floor-spike) sleep-code) :post (behavior () - (dotimes (gp-0 (the-as int (-> self spike-dim 0))) + (dotimes (gp-0 (-> self spike-dim 0)) (let ((s5-0 (-> self spike-row data gp-0))) (let ((f0-0 (get-norm! (-> s5-0 sync) 0))) (cond @@ -150,7 +155,7 @@ ) ) ) - (dotimes (s4-0 (the-as int (-> self spike-dim 1))) + (dotimes (s4-0 (-> self spike-dim 1)) (cond ((zero? (-> s5-0 state)) (seek! @@ -188,10 +193,16 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-floor-spike ((obj fort-floor-spike) (arg0 entity-actor)) - (fort-floor-spike-method-22 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-spike-collision! obj) (process-drawable-from-entity! obj arg0) - (fort-floor-spike-method-21 obj) - (fort-floor-spike-method-23 obj) + (init-spike-joints! obj) + (init-periodic-animation! obj) (let* ((v1-6 *game-info*) (a0-6 (+ (-> v1-6 attack-id) 1)) ) @@ -207,13 +218,19 @@ :bounds (static-spherem 0 0 0 12) ) -(defskelgroup skel-fort-floor-spike-b fort-floor-spike-b 0 4 - ((1 (meters 20)) (2 (meters 40)) (3 (meters 999999))) +(defskelgroup skel-fort-floor-spike-b fort-floor-spike-b fort-floor-spike-b-lod0-jg fort-floor-spike-b-idle-ja + ((fort-floor-spike-b-lod0-mg (meters 20)) + (fort-floor-spike-b-lod1-mg (meters 40)) + (fort-floor-spike-b-lod2-mg (meters 999999)) + ) :bounds (static-spherem 0 0 0 12) ) -(defskelgroup skel-fort-floor-spike-c fort-floor-spike-c 0 4 - ((1 (meters 20)) (2 (meters 40)) (3 (meters 999999))) +(defskelgroup skel-fort-floor-spike-c fort-floor-spike-c fort-floor-spike-c-lod0-jg fort-floor-spike-c-idle-ja + ((fort-floor-spike-c-lod0-mg (meters 20)) + (fort-floor-spike-c-lod1-mg (meters 40)) + (fort-floor-spike-c-lod2-mg (meters 999999)) + ) :bounds (static-spherem 0 0 0 12) ) @@ -226,7 +243,8 @@ ) -(defmethod fort-floor-spike-method-21 fort-floor-spike-a ((obj fort-floor-spike-a)) +(defmethod init-spike-joints! fort-floor-spike-a ((obj fort-floor-spike-a)) + "Initializes the skeleton and joints for the spike" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-fort-floor-spike-a" (the-as (pointer uint32) #f))) @@ -245,7 +263,8 @@ (none) ) -(defmethod fort-floor-spike-method-22 fort-floor-spike-a ((obj fort-floor-spike-a)) +(defmethod init-spike-collision! fort-floor-spike-a ((obj fort-floor-spike-a)) + "Initializes the collision for the particular spike" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 type) (sv-48 collide-shape-moving)) (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) @@ -298,13 +317,14 @@ ) ) -(defmethod fort-floor-spike-method-23 fort-floor-spike-a ((obj fort-floor-spike-a)) +(defmethod init-periodic-animation! fort-floor-spike-a ((obj fort-floor-spike-a)) + "Initialzes the periodic animation of the spikes (exit and re-entry)" (local-vars (sv-64 cspace)) (let ((s5-0 2) (s4-0 4) ) - (set! (-> obj spike-dim 0) (the-as basic s5-0)) - (set! (-> obj spike-dim 1) (the-as basic s4-0)) + (set! (-> obj spike-dim 0) s5-0) + (set! (-> obj spike-dim 1) s4-0) (set! (-> obj spike-row) (new 'process 'spike-row-info-array s5-0)) (set! (-> obj pos-table) (new 'static 'inline-array vector 8 (new 'static 'vector) @@ -337,7 +357,7 @@ (if #t (set! v1-19 (logior v1-19 1)) ) - (set! (-> a1-2 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-2 sync-type) 'sync-linear) (set! (-> a1-2 sync-flags) (the-as sync-flags v1-19)) ) (set! (-> a1-2 entity) #f) @@ -365,7 +385,8 @@ ) -(defmethod fort-floor-spike-method-21 fort-floor-spike-b ((obj fort-floor-spike-b)) +(defmethod init-spike-joints! fort-floor-spike-b ((obj fort-floor-spike-b)) + "Initializes the skeleton and joints for the spike" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-fort-floor-spike-b" (the-as (pointer uint32) #f))) @@ -384,7 +405,8 @@ (none) ) -(defmethod fort-floor-spike-method-22 fort-floor-spike-b ((obj fort-floor-spike-b)) +(defmethod init-spike-collision! fort-floor-spike-b ((obj fort-floor-spike-b)) + "Initializes the collision for the particular spike" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 type) (sv-48 collide-shape-moving)) (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) @@ -448,13 +470,14 @@ ) ) -(defmethod fort-floor-spike-method-23 fort-floor-spike-b ((obj fort-floor-spike-b)) +(defmethod init-periodic-animation! fort-floor-spike-b ((obj fort-floor-spike-b)) + "Initialzes the periodic animation of the spikes (exit and re-entry)" (local-vars (sv-64 cspace)) (let ((s5-0 2) (s4-0 5) ) - (set! (-> obj spike-dim 0) (the-as basic s5-0)) - (set! (-> obj spike-dim 1) (the-as basic s4-0)) + (set! (-> obj spike-dim 0) s5-0) + (set! (-> obj spike-dim 1) s4-0) (set! (-> obj spike-row) (new 'process 'spike-row-info-array s5-0)) (set! (-> obj pos-table) (new 'static 'inline-array vector 8 (new 'static 'vector) @@ -487,7 +510,7 @@ (if #t (set! v1-19 (logior v1-19 1)) ) - (set! (-> a1-2 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-2 sync-type) 'sync-linear) (set! (-> a1-2 sync-flags) (the-as sync-flags v1-19)) ) (set! (-> a1-2 entity) #f) @@ -515,17 +538,18 @@ ) -(defmethod fort-floor-spike-method-21 fort-floor-spike-c ((obj fort-floor-spike-c)) +(defmethod init-spike-joints! fort-floor-spike-c ((obj fort-floor-spike-c)) + "Initializes the skeleton and joints for the spike" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-fort-floor-spike-c" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (let ((a0-3 (-> obj skel root-channel 0))) - (set! (-> a0-3 frame-group) (the-as art-joint-anim (-> obj draw art-group data 4))) - (set! (-> a0-3 frame-num) 0.0) + (let ((channel (-> obj skel root-channel 0))) + (set! (-> channel frame-group) (the-as art-joint-anim (-> obj draw art-group data 4))) + (set! (-> channel frame-num) 0.0) (joint-control-channel-group-eval! - a0-3 + channel (the-as art-joint-anim (-> obj draw art-group data 4)) num-func-identity ) @@ -534,21 +558,22 @@ (none) ) -(defmethod fort-floor-spike-method-22 fort-floor-spike-c ((obj fort-floor-spike-c)) - (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 type) (sv-48 collide-shape-moving)) - (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) - (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) - (set! (-> s5-0 reaction) cshape-reaction-default) - (set! (-> s5-0 no-reaction) +(defmethod init-spike-collision! fort-floor-spike-c ((obj fort-floor-spike-c)) + "Initializes the collision for the particular spike" + (local-vars (prim-mesh collide-shape-prim-mesh) (sv-32 type) (sv-48 collide-shape-moving)) + (let ((cshape-moving (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) + (set! (-> cshape-moving dynam) (copy *standard-dynamics* 'process)) + (set! (-> cshape-moving reaction) cshape-reaction-default) + (set! (-> cshape-moving no-reaction) (the-as (function collide-shape-moving collide-query vector vector object) nothing) ) - (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 15) 0))) - (set! (-> s5-0 total-prims) (the-as uint 16)) - (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle)) - (set! (-> s4-0 prim-core collide-with) (collide-spec jak bot enemy hit-by-others-list player-list)) - (set! (-> s4-0 prim-core action) (collide-action solid)) - (set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 49152.0) - (set! (-> s5-0 root-prim) s4-0) + (let ((prim-group (new 'process 'collide-shape-prim-group cshape-moving (the-as uint 15) 0))) + (set! (-> cshape-moving total-prims) (the-as uint 16)) + (set! (-> prim-group prim-core collide-as) (collide-spec obstacle)) + (set! (-> prim-group prim-core collide-with) (collide-spec jak bot enemy hit-by-others-list player-list)) + (set! (-> prim-group prim-core action) (collide-action solid)) + (set-vector! (-> prim-group local-sphere) 0.0 0.0 0.0 49152.0) + (set! (-> cshape-moving root-prim) prim-group) (let* ((s3-0 '((0 4 16384) (1 5 16384) (2 6 16384) @@ -573,43 +598,44 @@ (s0-0 'process) ) (set! sv-32 collide-shape-prim-mesh) - (set! sv-48 s5-0) + (set! sv-48 cshape-moving) (let ((a3-2 (command-get-int (car s2-0) 0)) (t0-1 0) ) - (set! sv-16 (s1-0 s0-0 sv-32 sv-48 (the-as uint a3-2) (the-as uint t0-1))) + (set! prim-mesh (s1-0 s0-0 sv-32 sv-48 (the-as uint a3-2) (the-as uint t0-1))) ) ) - (let ((s1-1 sv-16)) - (set! (-> s1-1 prim-core collide-as) (-> s4-0 prim-core collide-as)) - (set! (-> s1-1 prim-core collide-with) (-> s4-0 prim-core collide-with)) - (set! (-> s1-1 prim-core action) (-> s4-0 prim-core action)) + (let ((s1-1 prim-mesh)) + (set! (-> s1-1 prim-core collide-as) (-> prim-group prim-core collide-as)) + (set! (-> s1-1 prim-core collide-with) (-> prim-group prim-core collide-with)) + (set! (-> s1-1 prim-core action) (-> prim-group prim-core action)) (set! (-> s1-1 transform-index) (command-get-int (car (cdr s2-0)) 0)) ) - (set-vector! (-> sv-16 local-sphere) 0.0 0.0 0.0 (command-get-float (car (cdr (cdr s2-0))) 0.0)) + (set-vector! (-> prim-mesh local-sphere) 0.0 0.0 0.0 (command-get-float (car (cdr (cdr s2-0))) 0.0)) (set! s3-0 (cdr s3-0)) (set! s2-0 (car s3-0)) ) ) ) - (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w))) - (let ((v1-24 (-> s5-0 root-prim))) - (set! (-> s5-0 backup-collide-as) (-> v1-24 prim-core collide-as)) - (set! (-> s5-0 backup-collide-with) (-> v1-24 prim-core collide-with)) + (set! (-> cshape-moving nav-radius) (* 0.75 (-> cshape-moving root-prim local-sphere w))) + (let ((root-prim (-> cshape-moving root-prim))) + (set! (-> cshape-moving backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape-moving backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s5-0 event-self) 'touched) - (set! (-> obj root) s5-0) - s5-0 + (set! (-> cshape-moving event-self) 'touched) + (set! (-> obj root) cshape-moving) + cshape-moving ) ) -(defmethod fort-floor-spike-method-23 fort-floor-spike-c ((obj fort-floor-spike-c)) +(defmethod init-periodic-animation! fort-floor-spike-c ((obj fort-floor-spike-c)) + "Initialzes the periodic animation of the spikes (exit and re-entry)" (local-vars (sv-64 cspace)) (let ((s5-0 3) (s4-0 5) ) - (set! (-> obj spike-dim 0) (the-as basic s5-0)) - (set! (-> obj spike-dim 1) (the-as basic s4-0)) + (set! (-> obj spike-dim 0) s5-0) + (set! (-> obj spike-dim 1) s4-0) (set! (-> obj spike-row) (new 'process 'spike-row-info-array s5-0)) (set! (-> obj pos-table) (new 'static 'inline-array vector 8 (new 'static 'vector) @@ -642,7 +668,7 @@ (if #t (set! v1-19 (logior v1-19 1)) ) - (set! (-> a1-2 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-2 sync-type) 'sync-linear) (set! (-> a1-2 sync-flags) (the-as sync-flags v1-19)) ) (set! (-> a1-2 entity) #f) diff --git a/goal_src/jak2/levels/common/guard-projectile.gc b/goal_src/jak2/levels/common/guard-projectile.gc index afe511bbf1..b81e6f7372 100644 --- a/goal_src/jak2/levels/common/guard-projectile.gc +++ b/goal_src/jak2/levels/common/guard-projectile.gc @@ -333,7 +333,7 @@ (defmethod draw-laser-sight guard-shot ((obj guard-shot)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" (draw-beam (-> *part-id-table* 610) (-> obj tail-pos) (-> obj starting-dir) #f #t) (let* ((a0-3 (vector-normalize-copy! (new 'stack-no-clear 'vector) (-> obj starting-dir) 2048.0)) (v1-2 (vector+! (new 'stack-no-clear 'vector) (-> obj tail-pos) a0-3)) @@ -657,7 +657,7 @@ (defmethod init-proj-settings! guard-shot ((obj guard-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj hit-actor?) #f) (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (set! (-> obj attack-mode) 'guard-shot) @@ -738,7 +738,7 @@ (defmethod init-proj-settings! vehicle-grenade ((obj vehicle-grenade)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj attack-mode) 'eco-dark) (initialize-skeleton obj @@ -773,7 +773,7 @@ (defmethod play-impact-sound! vehicle-grenade ((obj vehicle-grenade)) "Plays impact sound - :virtual" +:virtual" (let* ((a2-0 (-> obj root-override)) (v1-0 (-> a2-0 status)) ) @@ -1021,7 +1021,7 @@ (defmethod init-proj-settings! guard-lazer-shot ((obj guard-lazer-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj attack-mode) 'shock) (set! (-> obj max-speed) 131072.0) (set! (-> obj timeout) (seconds 0.125)) diff --git a/goal_src/jak2/levels/common/metalhead-projectile.gc b/goal_src/jak2/levels/common/metalhead-projectile.gc index 80047ae828..6ecb80f490 100644 --- a/goal_src/jak2/levels/common/metalhead-projectile.gc +++ b/goal_src/jak2/levels/common/metalhead-projectile.gc @@ -320,7 +320,7 @@ (defmethod draw-laser-sight metalhead-shot ((obj metalhead-shot)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" (draw-beam (-> *part-id-table* 624) (-> obj tail-pos) (-> obj starting-dir) #f #t) (let* ((a0-3 (vector-normalize-copy! (new 'stack-no-clear 'vector) (-> obj starting-dir) 2048.0)) (v1-2 (vector+! (new 'stack-no-clear 'vector) (-> obj tail-pos) a0-3)) @@ -558,7 +558,7 @@ (defmethod init-proj-settings! metalhead-shot ((obj metalhead-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (set! (-> obj attack-mode) 'metalhead-shot) (set! (-> obj max-speed) 532480.0) @@ -913,7 +913,7 @@ ;; WARN: Return type mismatch sound-id vs none. (defmethod init-proj-settings! metalhead-grenade-shot ((obj metalhead-grenade-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj attack-mode) 'eco-yellow) (set! (-> obj blast-radius) 4096.0) (set! (-> obj max-speed) 135168.0) diff --git a/goal_src/jak2/levels/common/scene-actor.gc b/goal_src/jak2/levels/common/scene-actor.gc index a94d74cea1..6f83673fef 100644 --- a/goal_src/jak2/levels/common/scene-actor.gc +++ b/goal_src/jak2/levels/common/scene-actor.gc @@ -50,10 +50,10 @@ :shadow-joint-index 3 ) -(defskelgroup skel-youngsamos-highres youngsamos-highres 0 3 - ((1 (meters 999999))) +(defskelgroup skel-youngsamos-highres youngsamos-highres youngsamos-highres-lod0-jg youngsamos-highres-idle-ja + ((youngsamos-highres-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 3.2) - :shadow 2 + :shadow youngsamos-highres-shadow-mg :origin-joint-index 3 ) @@ -183,18 +183,18 @@ :origin-joint-index 3 ) -(defskelgroup skel-rift-rider rift-rider 0 4 - ((1 (meters 999999))) +(defskelgroup skel-rift-rider rift-rider rift-rider-lod0-jg rift-rider-idle-ja + ((rift-rider-lod0-mg (meters 999999))) :bounds (static-spherem 0 1.5 0 5) - :shadow 2 + :shadow rift-rider-shadow-mg :origin-joint-index 3 :shadow-joint-index 3 ) -(defskelgroup skel-torn-highres torn-highres 0 3 - ((1 (meters 999999))) +(defskelgroup skel-torn-highres torn-highres torn-highres-lod0-jg torn-highres-idle-ja + ((torn-highres-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 2.5) - :shadow 2 + :shadow torn-highres-shadow-mg :origin-joint-index 3 ) @@ -267,8 +267,8 @@ :origin-joint-index 3 ) -(defskelgroup skel-baron baron 0 2 - ((1 (meters 999999))) +(defskelgroup skel-baron baron baron-lod0-jg baron-idle-ja + ((baron-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 3) :origin-joint-index 3 ) @@ -284,7 +284,7 @@ (defmethod get-art-elem kor-npc ((obj kor-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor kor-hideout)) (-> obj draw art-group data 5) @@ -340,6 +340,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! metalkor-highres ((obj metalkor-highres) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -408,7 +414,7 @@ (defmethod get-art-elem tess-npc ((obj tess-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor tess-alley)) (if (task-node-closed? (game-task-node ruins-tower-resolution)) @@ -466,7 +472,7 @@ (defmethod get-art-elem keira-npc ((obj keira-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor keira-stadium)) (-> obj draw art-group data 3) @@ -500,7 +506,7 @@ (defmethod get-art-elem krew-npc ((obj krew-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (-> obj draw art-group data 4) ) @@ -539,7 +545,7 @@ (defmethod get-art-elem kid-npc ((obj kid-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor kid-alley)) (-> obj draw art-group data 5) @@ -567,7 +573,7 @@ (defmethod get-art-elem crocadog-npc ((obj crocadog-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor crocadog-vinroom)) (-> obj draw art-group data 5) @@ -616,7 +622,7 @@ (defmethod get-art-elem torn-npc ((obj torn-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (cond ((task-node-open? (game-task-node ruins-tower-introduction)) (-> obj draw art-group data 5) @@ -692,7 +698,7 @@ (defmethod get-art-elem youngsamos-npc ((obj youngsamos-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor youngsamos-forest)) (-> obj draw art-group data 4) @@ -741,7 +747,7 @@ (defmethod get-art-elem samos-npc ((obj samos-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor samos-hideout)) (-> obj draw art-group data 4) @@ -778,8 +784,8 @@ (defmethod get-art-elem onin-npc ((obj onin-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" - (let ((v1-1 (game-task-control-method-9 (-> obj task)))) +@returns the appropriate [[art-element]] for the given NPC" + (let ((v1-1 (get-current-task-event (-> obj task)))) (case (-> v1-1 action) (((game-task-action play)) (set! (-> obj talk-message) (game-text-id text-x186)) @@ -849,10 +855,10 @@ (defmethod get-art-elem pecker-npc ((obj pecker-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (local-vars (s5-0 art-joint-anim) (f30-0 float)) (cond - ((logtest? (-> (game-task-control-method-9 (-> obj task)) flags) (game-task-flags gatflag-02)) + ((logtest? (-> (get-current-task-event (-> obj task)) flags) (game-task-flags gatflag-02)) (-> obj draw art-group data 6) ) ((begin @@ -937,7 +943,7 @@ (defmethod get-art-elem ashelin-npc ((obj ashelin-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor ashelin-throne)) (logior! (-> obj draw status) (draw-control-status no-draw-bounds)) @@ -974,7 +980,7 @@ (defmethod get-art-elem daxter-npc ((obj daxter-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (-> obj draw art-group data 3) ) @@ -984,14 +990,14 @@ :origin-joint-index 3 ) -(defskelgroup skel-tomb-boss-bridge-a tomb-boss-bridge 0 2 - ((1 (meters 999999))) +(defskelgroup skel-tomb-boss-bridge-a tomb-boss-bridge tomb-boss-bridge-a-lod0-jg tomb-boss-bridge-a-idle-ja + ((tomb-boss-bridge-a-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 17) :origin-joint-index 30 ) -(defskelgroup skel-tomb-boss-bridge-b tomb-boss-bridge 6 8 - ((7 (meters 999999))) +(defskelgroup skel-tomb-boss-bridge-b tomb-boss-bridge tomb-boss-bridge-b-lod0-jg tomb-boss-bridge-b-idle-ja + ((tomb-boss-bridge-b-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 17) :origin-joint-index 31 ) @@ -1008,8 +1014,8 @@ :origin-joint-index 3 ) -(defskelgroup skel-seal-of-mar seal-of-mar 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-seal-of-mar seal-of-mar seal-of-mar-lod0-jg -1 + ((seal-of-mar-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 10) :origin-joint-index 3 ) @@ -1044,23 +1050,23 @@ :origin-joint-index 3 ) -(defskelgroup skel-heart-of-mar heart-of-mar 0 2 - ((1 (meters 999999))) +(defskelgroup skel-heart-of-mar heart-of-mar heart-of-mar-lod0-jg heart-of-mar-idle-ja + ((heart-of-mar-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 2) :origin-joint-index 3 ) -(defskelgroup skel-gun-upgrade-a gun-upgrade-a 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-gun-upgrade-a gun-upgrade-a gun-upgrade-a-lod0-jg -1 + ((gun-upgrade-a-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 1) :origin-joint-index 3 ) (defun intro-play () "A dedicated function for playing the intro cutscenes in the correct order - ```opengoal - \"intro-samos-hut\" \"intro-vortex\" \"intro-city-square\" \"intro-prison\" - ```" +```opengoal +\"intro-samos-hut\" \"intro-vortex\" \"intro-city-square\" \"intro-prison\" +```" (set! (-> *setting-control* user-default border-mode) #t) (set! (-> *level* play?) (-> *setting-control* user-default border-mode)) (process-spawn @@ -1076,9 +1082,9 @@ (defun outro-play () "A dedicated function for playing the intro cutscenes in the correct order - ```opengoal - \"outro-nest\" \"outro-palace\" \"outro-hiphog\" \"outro-port\" - ```" +```opengoal +\"outro-nest\" \"outro-palace\" \"outro-hiphog\" \"outro-port\" +```" (set! (-> *setting-control* user-default border-mode) #t) (set! (-> *level* play?) (-> *setting-control* user-default border-mode)) (process-spawn diff --git a/goal_src/jak2/levels/common/scene-looper.gc b/goal_src/jak2/levels/common/scene-looper.gc index 026c8f552e..6f0b8f6c14 100644 --- a/goal_src/jak2/levels/common/scene-looper.gc +++ b/goal_src/jak2/levels/common/scene-looper.gc @@ -56,14 +56,14 @@ (defun stop-loop-scene () "Kills the current [[scene-looper]] - @see [[kill-by-type]]" +@see [[kill-by-type]]" (kill-by-type scene-looper *active-pool*) ) ;; WARN: Return type mismatch (pointer process) vs (pointer scene-looper). (defun loop-scene ((scene-name symbol)) "Stops looping the current scene, then spawns a new [[scene-looper]] for the given scene - @see [[stop-loop-scene]" +@see [[stop-loop-scene]" (stop-loop-scene) (process-spawn scene-looper scene-name) ) diff --git a/goal_src/jak2/levels/common/warp-gate.gc b/goal_src/jak2/levels/common/warp-gate.gc index 944c4eaea2..b244aa9a26 100644 --- a/goal_src/jak2/levels/common/warp-gate.gc +++ b/goal_src/jak2/levels/common/warp-gate.gc @@ -792,6 +792,12 @@ ) (defmethod init-from-entity! warp-gate ((obj warp-gate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (warp-gate-init arg0 (the-as vector #f)) (none) ) diff --git a/goal_src/jak2/levels/consite/consite-scenes.gc b/goal_src/jak2/levels/consite/consite-scenes.gc index d9df623bce..b4e60fa693 100644 --- a/goal_src/jak2/levels/consite/consite-scenes.gc +++ b/goal_src/jak2/levels/consite/consite-scenes.gc @@ -505,6 +505,7 @@ ) (defun consite-crimson-guard-shot ((arg0 sparticle-launcher) (arg1 vector) (arg2 sparticle-launch-state)) + "The guards briefly shoot at Kor before being rekt" (draw-beam (-> *part-id-table* 606) arg1 (-> arg2 sprite rot-syvel) #f #t) (draw-beam (-> *part-id-table* 610) arg1 (-> arg2 sprite rot-syvel) #f #t) 0 @@ -568,9 +569,10 @@ ) (defun movie-consite-metalkor-shot-draw-fire ((arg0 vector) (arg1 vector)) - (let ((s5-1 (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) - (draw-beam (-> *part-id-table* 624) arg0 s5-1 #f #t) - (let* ((a0-4 (vector-normalize-copy! (new 'stack-no-clear 'vector) s5-1 8192.0)) + "TODO - cutscenes/docs" + (let ((displacement (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) + (draw-beam (-> *part-id-table* 624) arg0 displacement #f #t) + (let* ((a0-4 (vector-normalize-copy! (new 'stack-no-clear 'vector) displacement 8192.0)) (v1-3 (vector+! (new 'stack-no-clear 'vector) arg0 a0-4)) (t9-2 sp-launch-particles-var) (a0-5 *sp-particle-system-2d*) @@ -586,6 +588,7 @@ ) (defun movie-consite-metalkor-shot-draw-moving ((arg0 vector) (arg1 vector) (arg2 float)) + "TODO - cutscenes/docs" (rlet ((acc :class vf) (vf0 :class vf) (vf4 :class vf) @@ -676,6 +679,7 @@ ) (defun movie-consite-metalkor-shot-draw-impact ((arg0 scene-player) (arg1 vector) (arg2 vector)) + "TODO - cutscenes/docs" (local-vars (sv-240 (function vector entity-actor skeleton-group vector object none :behavior manipy)) (sv-256 vector) diff --git a/goal_src/jak2/levels/dig/dig-digger.gc b/goal_src/jak2/levels/dig/dig-digger.gc index 2fc40cc7d3..ee56df9ad3 100644 --- a/goal_src/jak2/levels/dig/dig-digger.gc +++ b/goal_src/jak2/levels/dig/dig-digger.gc @@ -573,11 +573,20 @@ ) -(defskelgroup skel-dig-clasp dig-clasp 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 4)) +(defskelgroup skel-dig-clasp dig-clasp dig-clasp-lod0-jg dig-clasp-idle-ja + ((dig-clasp-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 4) + ) -(defskelgroup skel-dig-clasp-explode dig-clasp 3 5 ((4 (meters 999999))) :bounds (static-spherem 0 0 0 8)) +(defskelgroup skel-dig-clasp-explode dig-clasp dig-clasp-explode-lod0-jg dig-clasp-explode-idle-ja + ((dig-clasp-explode-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 8) + ) -(defskelgroup skel-dig-clasp-b dig-clasp-b 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 4)) +(defskelgroup skel-dig-clasp-b dig-clasp-b dig-clasp-b-lod0-jg dig-clasp-b-idle-ja + ((dig-clasp-b-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 4) + ) (define *dig-clasp-exploder-params* (new 'static 'joint-exploder-static-params @@ -616,14 +625,14 @@ ) (cond ((-> self b) - (ja :group! (-> self draw art-group data 2) - :num! (identity (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) frames num-frames) -1))) + (ja :group! dig-digger-idle-ja + :num! (identity (the float (+ (-> (the-as art-joint-anim dig-digger-idle-ja) frames num-frames) -1))) ) (setup-masks (-> self draw) 0 2) ) (else - (ja :group! (-> self draw art-group data 2) - :num! (identity (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 2)) frames num-frames) -1))) + (ja :group! dig-digger-idle-ja + :num! (identity (the float (+ (-> (the-as art-joint-anim dig-digger-idle-ja) frames num-frames) -1))) ) (setup-masks (-> self draw) 0 2) ) @@ -651,11 +660,11 @@ (talker-speech-class-method-10 (-> *talker-speech* 192)) (cond ((-> self b) - (ja :group! (-> self draw art-group data 2) :num! min) + (ja :group! dig-digger-idle-ja :num! min) (setup-masks (-> self draw) 0 2) ) (else - (ja :group! (-> self draw art-group data 2) :num! min) + (ja :group! dig-digger-idle-ja :num! min) (setup-masks (-> self draw) 0 2) ) ) @@ -697,13 +706,11 @@ (when (and (logtest? (-> v1-2 mask) (attack-info-mask mode)) (= (-> v1-2 mode) 'board)) (cpad-set-buzz! (-> *cpad-list* cpads 0) 0 85 (seconds 0.1)) (go-virtual break-it) - self ) ) ) (('break) (go-virtual break-it) - self ) ) ) @@ -716,6 +723,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-clasp ((obj dig-clasp) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec enemy)) @@ -760,6 +773,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-clasp-b ((obj dig-clasp-b) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (when (not (task-node-closed? (game-task-node dig-knock-down-resolution))) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0)))) @@ -835,12 +854,15 @@ ) -(defskelgroup skel-dig-tether-unsnapped dig-tether 2 4 - ((3 (meters 999999))) +(defskelgroup skel-dig-tether-unsnapped dig-tether dig-tether-unsnapped-lod0-jg dig-tether-idle-ja + ((dig-tether-unsnapped-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 80) ) -(defskelgroup skel-dig-tether-snapped dig-tether 0 4 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 80)) +(defskelgroup skel-dig-tether-snapped dig-tether dig-tether-snapped-lod0-jg dig-tether-idle-ja + ((dig-tether-snapped-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 80) + ) (defmethod dig-tether-method-22 dig-tether ((obj dig-tether)) (with-pp @@ -859,7 +881,6 @@ ((or (send-event-function s5-0 a1-1) (logtest? (-> obj clasp extra perm status) (entity-perm-status subtask-complete)) ) - (format 0 "FAILURE") (go (method-of-object obj broken)) ) (s5-0 @@ -1154,8 +1175,8 @@ ) -(defskelgroup skel-dig-digger dig-digger 0 2 - ((1 (meters 999999))) +(defskelgroup skel-dig-digger dig-digger dig-digger-lod0-jg dig-digger-idle-ja + ((dig-digger-lod0-mg (meters 999999))) :bounds (static-spherem 0 36 0 40) :origin-joint-index 3 ) @@ -1429,6 +1450,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-digger ((obj dig-digger) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) diff --git a/goal_src/jak2/levels/dig/dig-obs.gc b/goal_src/jak2/levels/dig/dig-obs.gc index 45233a20f3..1372a6e50e 100644 --- a/goal_src/jak2/levels/dig/dig-obs.gc +++ b/goal_src/jak2/levels/dig/dig-obs.gc @@ -24,8 +24,8 @@ ) -(defskelgroup skel-dig-sinking-plat dig-sinking-plat 0 2 - ((1 (meters 999999))) +(defskelgroup skel-dig-sinking-plat dig-sinking-plat dig-sinking-plat-lod0-jg dig-sinking-plat-idle-ja + ((dig-sinking-plat-lod0-mg (meters 999999))) :bounds (static-spherem 0 -2 0 5.25) ) @@ -68,8 +68,7 @@ (define *dig-sinking-platform-constants* (new 'static 'rigid-body-object-constants :mass 4.0 :inv-mass 0.25 - :cm-joint-y (meters -2) - :cm-joint-w 1.0 + :cm-joint (new 'static 'vector :y -8192.0 :w 1.0) :linear-damping 0.9 :angular-damping 0.48 :friction-factor 0.1 @@ -267,7 +266,7 @@ (if #f (set! v1-25 (logior v1-25 1)) ) - (set! (-> a1-5 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-5 sync-type) 'sync-linear) (set! (-> a1-5 sync-flags) (the-as sync-flags v1-25)) ) (set! (-> a1-5 entity) s5-2) @@ -469,8 +468,8 @@ ) -(defskelgroup skel-dig-log dig-log 0 2 - ((1 (meters 999999))) +(defskelgroup skel-dig-log dig-log dig-log-lod0-jg dig-log-idle-ja + ((dig-log-lod0-mg (meters 999999))) :bounds (static-spherem 0 7.25 0 11) :origin-joint-index 3 ) @@ -651,6 +650,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-log ((obj dig-log) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (set! (-> obj hud-handle) (the-as handle #f)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) @@ -732,7 +737,10 @@ ) -(defskelgroup skel-dig-button dig-button 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 3)) +(defskelgroup skel-dig-button dig-button dig-button-lod0-jg dig-button-idle-ja + ((dig-button-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 3) + ) (defmethod run-logic? dig-button ((obj dig-button)) #t @@ -801,6 +809,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-button ((obj dig-button) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) diff --git a/goal_src/jak2/levels/dig/dig1-obs.gc b/goal_src/jak2/levels/dig/dig1-obs.gc index 5dee02b914..6a66c823fd 100644 --- a/goal_src/jak2/levels/dig/dig1-obs.gc +++ b/goal_src/jak2/levels/dig/dig1-obs.gc @@ -16,8 +16,8 @@ ) -(defskelgroup skel-dig-conveyor dig-conveyor 0 2 - ((1 (meters 999999))) +(defskelgroup skel-dig-conveyor dig-conveyor dig-conveyor-lod0-jg dig-conveyor-idle-ja + ((dig-conveyor-lod0-mg (meters 999999))) :bounds (static-spherem 0 2 -8 10) :longest-edge (meters 8.7193) :origin-joint-index 3 @@ -368,8 +368,8 @@ ) -(defskelgroup skel-dig-bomb-crate-cylinder dig-bomb-crate-cylinder 0 2 - ((1 (meters 999999))) +(defskelgroup skel-dig-bomb-crate-cylinder dig-bomb-crate-cylinder dig-bomb-crate-cylinder-lod0-jg dig-bomb-crate-cylinder-idle-ja + ((dig-bomb-crate-cylinder-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 1.5) ) @@ -806,13 +806,13 @@ ) -(defskelgroup skel-dig-bomb-crate dig-bomb-crate 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-dig-bomb-crate dig-bomb-crate dig-bomb-crate-lod0-jg dig-bomb-crate-idle-ja + ((dig-bomb-crate-lod0-mg (meters 20)) (dig-bomb-crate-lod1-mg (meters 999999))) :bounds (static-spherem 0 2 0 4.5) ) -(defskelgroup skel-dig-bomb-crate-explode dig-bomb-crate 4 6 - ((5 (meters 999999))) +(defskelgroup skel-dig-bomb-crate-explode dig-bomb-crate dig-bomb-crate-explode-lod0-jg dig-bomb-crate-explode-idle-ja + ((dig-bomb-crate-explode-lod0-mg (meters 999999))) :bounds (static-spherem 0 2 0 4.5) ) @@ -971,6 +971,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-bomb-crate ((obj dig-bomb-crate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 penetrated-by) (penetrate @@ -1019,7 +1025,10 @@ (none) ) -(defskelgroup skel-dig-jump-pad dig-jump-pad 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 15)) +(defskelgroup skel-dig-jump-pad dig-jump-pad dig-jump-pad-lod0-jg dig-jump-pad-idle-ja + ((dig-jump-pad-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 15) + ) (deftype dig-jump-pad (bouncer) () diff --git a/goal_src/jak2/levels/dig/dig2-obs.gc b/goal_src/jak2/levels/dig/dig2-obs.gc index ded2c8dbfa..683932a69b 100644 --- a/goal_src/jak2/levels/dig/dig2-obs.gc +++ b/goal_src/jak2/levels/dig/dig2-obs.gc @@ -7,3 +7,71 @@ ;; DECOMP BEGINS +(deftype dig-breakable-door (process-focusable) + ((anim basic :offset-assert 204) + (art-name basic :offset-assert 208) + (collide-mesh int32 :offset-assert 212) + ) + :heap-base #x60 + :method-count-assert 28 + :size-assert #xd8 + :flag-assert #x1c006000d8 + (:methods + (idle () _type_ :state 27) + ) + ) + + +(defskelgroup skel-dig-breakable-door dig-breakable-door dig-breakable-door-lod0-jg dig-breakable-door-idle-ja + ((dig-breakable-door-lod0-mg (meters 999999))) + :bounds (static-spherem 0 6 0 10.3) + :origin-joint-index 3 + ) + +(defstate idle (dig-breakable-door) + :virtual #t + :code (behavior () + (until #f + (transform-post) + (logior! (-> self mask) (process-mask sleep)) + (suspend) + ) + #f + (none) + ) + ) + +;; WARN: Return type mismatch object vs none. +(defmethod init-from-entity! dig-breakable-door ((obj dig-breakable-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (stack-size-set! (-> obj main-thread) 512) + (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) + (let ((s4-0 (art-group-get-by-name *level* "skel-dig-breakable-door" (the-as (pointer uint32) #f)))) + (let ((s3-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (let ((v1-7 (new 'process 'collide-shape-prim-mesh s3-0 (the-as uint 0) (the-as uint 0)))) + (set! (-> v1-7 prim-core collide-as) (collide-spec obstacle)) + (set! (-> v1-7 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> v1-7 prim-core action) (collide-action solid)) + (set! (-> v1-7 transform-index) 3) + (set-vector! (-> v1-7 local-sphere) 0.0 24576.0 0.0 42188.8) + (set! (-> s3-0 total-prims) (the-as uint 1)) + (set! (-> s3-0 root-prim) v1-7) + ) + (set! (-> s3-0 nav-radius) (* 0.75 (-> s3-0 root-prim local-sphere w))) + (let ((v1-10 (-> s3-0 root-prim))) + (set! (-> s3-0 backup-collide-as) (-> v1-10 prim-core collide-as)) + (set! (-> s3-0 backup-collide-with) (-> v1-10 prim-core collide-with)) + ) + (set! (-> obj root-override) s3-0) + ) + (process-drawable-from-entity! obj arg0) + (initialize-skeleton obj (the-as skeleton-group s4-0) (the-as pair 0)) + ) + (go (method-of-object obj idle)) + (none) + ) diff --git a/goal_src/jak2/levels/dig/dig3-obs.gc b/goal_src/jak2/levels/dig/dig3-obs.gc index af04cad54d..0b0cc4d46d 100644 --- a/goal_src/jak2/levels/dig/dig3-obs.gc +++ b/goal_src/jak2/levels/dig/dig3-obs.gc @@ -256,7 +256,10 @@ ) -(defskelgroup skel-dig-spikey-step dig-spikey-step 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 6 9)) +(defskelgroup skel-dig-spikey-step dig-spikey-step dig-spikey-step-lod0-jg dig-spikey-step-idle-ja + ((dig-spikey-step-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 6 9) + ) (defstate idle (dig-spikey-step) :virtual #t @@ -341,6 +344,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-spikey-step ((obj dig-spikey-step) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 int)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) @@ -395,14 +404,14 @@ ) -(defskelgroup skel-dig-spikey-sphere dig-spikey-sphere 0 3 - ((1 (meters 999999))) +(defskelgroup skel-dig-spikey-sphere dig-spikey-sphere dig-spikey-sphere-lod0-jg dig-spikey-sphere-idle-ja + ((dig-spikey-sphere-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 4.2) - :shadow 2 + :shadow dig-spikey-sphere-shadow-mg ) -(defskelgroup skel-dig-spikey-sphere-explode dig-spikey-sphere 4 6 - ((5 (meters 999999))) +(defskelgroup skel-dig-spikey-sphere-explode dig-spikey-sphere dig-spikey-sphere-explode-lod0-jg dig-spikey-sphere-explode-idle-ja + ((dig-spikey-sphere-explode-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 4.2) ) @@ -526,7 +535,7 @@ ;; WARN: Return type mismatch time-frame vs sound-id. (defmethod play-impact-sound! dig-spikey-sphere ((obj dig-spikey-sphere)) "Plays impact sound - :virtual" +:virtual" (let* ((a0-1 (-> obj root-override)) (s5-0 (-> a0-1 status)) ) @@ -624,7 +633,7 @@ (defmethod init-proj-settings! dig-spikey-sphere ((obj dig-spikey-sphere)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (with-pp (set! (-> obj attack-mode) 'eco-dark) (initialize-skeleton @@ -675,8 +684,8 @@ ) -(defskelgroup skel-dig-spikey-sphere-door dig-spikey-sphere-door 0 2 - ((1 (meters 999999))) +(defskelgroup skel-dig-spikey-sphere-door dig-spikey-sphere-door dig-spikey-sphere-door-lod0-jg dig-spikey-sphere-door-idle-ja + ((dig-spikey-sphere-door-lod0-mg (meters 999999))) :bounds (static-spherem 0 -4 0 7) :origin-joint-index 4 ) @@ -750,6 +759,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-spikey-sphere-door ((obj dig-spikey-sphere-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -765,7 +780,7 @@ (if #f (set! v1-4 (logior v1-4 1)) ) - (set! (-> a1-5 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-5 sync-type) 'sync-linear) (set! (-> a1-5 sync-flags) (the-as sync-flags v1-4)) ) (set! (-> a1-5 entity) arg0) @@ -780,14 +795,14 @@ (none) ) -(defskelgroup skel-dig-balloon-lurker-trapeze dig-balloon-lurker 3 6 - ((4 (meters 999999))) +(defskelgroup skel-dig-balloon-lurker-trapeze dig-balloon-lurker dig-balloon-lurker-trapeze-lod0-jg dig-balloon-lurker-trapeze-jak-off-ja + ((dig-balloon-lurker-trapeze-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 20) - :shadow 5 + :shadow dig-balloon-lurker-trapeze-shadow-mg ) -(defskelgroup skel-dig-balloon-lurker dig-balloon-lurker 0 2 - ((1 (meters 999999))) +(defskelgroup skel-dig-balloon-lurker dig-balloon-lurker dig-balloon-lurker-lod0-jg dig-balloon-lurker-idle-ja + ((dig-balloon-lurker-lod0-mg (meters 999999))) :bounds (static-spherem 0 8 0 16) ) @@ -975,6 +990,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-balloon-lurker ((obj dig-balloon-lurker) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 0))) (set! (-> s4-0 total-prims) (the-as uint 4)) @@ -1044,7 +1065,7 @@ (if #t (set! v1-39 (logior v1-39 1)) ) - (set! (-> a1-23 sync-type) (the-as basic 'sync-eased)) + (set! (-> a1-23 sync-type) 'sync-eased) (set! (-> a1-23 sync-flags) (the-as sync-flags v1-39)) ) (set! (-> a1-23 period) (the-as uint 3600)) @@ -1061,7 +1082,7 @@ (if #t (set! v1-46 (logior v1-46 1)) ) - (set! (-> a1-24 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-24 sync-type) 'sync-linear) (set! (-> a1-24 sync-flags) (the-as sync-flags v1-46)) ) (set! (-> a1-24 entity) arg0) @@ -1206,7 +1227,10 @@ ) -(defskelgroup skel-dig-wheel-step dig-wheel-step 0 2 ((1 (meters 999999))) :bounds (static-spherem 2 0 0 14)) +(defskelgroup skel-dig-wheel-step dig-wheel-step dig-wheel-step-lod0-jg dig-wheel-step-idle-ja + ((dig-wheel-step-lod0-mg (meters 999999))) + :bounds (static-spherem 2 0 0 14) + ) (defstate idle (dig-wheel-step) :virtual #t @@ -1240,6 +1264,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-wheel-step ((obj dig-wheel-step) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 0))) (set! (-> s4-0 total-prims) (the-as uint 4)) @@ -1322,8 +1352,7 @@ (define *dig-tipping-rock-constants* (new 'static 'rigid-body-platform-constants :mass 4.0 :inv-mass 0.25 - :cm-joint-z (meters -6) - :cm-joint-w 1.0 + :cm-joint (new 'static 'vector :z -24576.0 :w 1.0) :linear-damping 0.9 :angular-damping 0.48 :friction-factor 0.1 @@ -1351,8 +1380,8 @@ ) ) -(defskelgroup skel-dig-tipping-rock dig-tipping-rock 0 2 - ((1 (meters 999999))) +(defskelgroup skel-dig-tipping-rock dig-tipping-rock dig-tipping-rock-lod0-jg dig-tipping-rock-idle-ja + ((dig-tipping-rock-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 14.5) :origin-joint-index 3 ) @@ -1588,15 +1617,15 @@ ) -(defskelgroup skel-dig-stomp-block dig-stomp-block 0 2 - ((1 (meters 999999))) +(defskelgroup skel-dig-stomp-block dig-stomp-block dig-stomp-block-lod0-jg dig-stomp-block-idle-ja + ((dig-stomp-block-lod0-mg (meters 999999))) :bounds (static-spherem 0 -3 0 5.5) ) (define *dig-stomp-block-constants* (new 'static 'rigid-body-object-constants :mass 1.0 :inv-mass 1.0 - :cm-joint-w 1.0 + :cm-joint (new 'static 'vector :w 1.0) :linear-damping 0.99 :angular-damping 0.9 :bounce-factor 0.5 @@ -1957,6 +1986,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-stomp-block-controller ((obj dig-stomp-block-controller) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj played-fall?) #f) (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) @@ -1976,7 +2011,10 @@ ) -(defskelgroup skel-dig-totem-entity dig-totem 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 13 0 14.5)) +(defskelgroup skel-dig-totem-entity dig-totem dig-totem-lod0-jg dig-totem-idle-ja + ((dig-totem-lod0-mg (meters 999999))) + :bounds (static-spherem 0 13 0 14.5) + ) (defmethod run-logic? dig-totem ((obj dig-totem)) #t @@ -1989,6 +2027,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-totem ((obj dig-totem) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) diff --git a/goal_src/jak2/levels/forest/fish.gc b/goal_src/jak2/levels/forest/fish.gc index 9a4cc8b27e..2bb1ab1bf5 100644 --- a/goal_src/jak2/levels/forest/fish.gc +++ b/goal_src/jak2/levels/forest/fish.gc @@ -18,7 +18,10 @@ ;; DECOMP BEGINS -(defskelgroup skel-minnow minnow 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 1)) +(defskelgroup skel-minnow minnow minnow-lod0-jg minnow-idle-ja + ((minnow-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 1) + ) (deftype minnow (process-drawable) () @@ -462,6 +465,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fish-manager ((obj fish-manager) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) diff --git a/goal_src/jak2/levels/forest/predator.gc b/goal_src/jak2/levels/forest/predator.gc index c85b879dd1..aa020d43ae 100644 --- a/goal_src/jak2/levels/forest/predator.gc +++ b/goal_src/jak2/levels/forest/predator.gc @@ -179,7 +179,7 @@ (defmethod init-proj-settings! predator-shot ((obj predator-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (set! (-> obj attack-mode) 'predator-shot) (set! (-> obj max-speed) 532480.0) @@ -1459,6 +1459,12 @@ ;; WARN: Return type mismatch entity-perm-status vs none. (defmethod init-from-entity! predator ((obj predator) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (process-entity-status! obj (entity-perm-status dead) #t) (none) ) @@ -1598,6 +1604,12 @@ ;; WARN: Return type mismatch object vs none. ;; WARN: new jak 2 until loop case, check carefully (defmethod init-from-entity! predator-manager ((obj predator-manager) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (rlet ((acc :class vf) (vf0 :class vf) diff --git a/goal_src/jak2/levels/forest/wren.gc b/goal_src/jak2/levels/forest/wren.gc index f922a14f61..19c6534341 100644 --- a/goal_src/jak2/levels/forest/wren.gc +++ b/goal_src/jak2/levels/forest/wren.gc @@ -40,7 +40,10 @@ ) -(defskelgroup skel-wren wren 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 4)) +(defskelgroup skel-wren wren wren-lod0-jg wren-idle-ja + ((wren-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 4) + ) (defmethod debug-draw-path wren ((obj wren)) "Draws the associated [[curve-control]]s associated with this wren" @@ -112,7 +115,7 @@ ;; WARN: Return type mismatch object vs symbol. (defmethod spooked? wren ((obj wren)) "@returns a [[symbol]] indicating if Jak is considered close enough to the wren to spook it. - If so, it transitions from [[wren::peck]] to [[wren::hunt]]" +If so, it transitions from [[wren::peck]] to [[wren::hunt]]" (let* ((gp-0 *target*) (a0-2 (if (type? gp-0 process-focusable) gp-0 @@ -142,8 +145,8 @@ ) :code (behavior () (until #f - (ja-no-eval :group! (-> self draw art-group data 3) - :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) frames num-frames) -1))) + (ja-no-eval :group! wren-hop-ja + :num! (seek! (the float (+ (-> (the-as art-joint-anim wren-hop-ja) frames num-frames) -1))) :frame-num 0.0 ) (until (ja-done? 0) @@ -219,8 +222,8 @@ (get-point-in-path! (-> self path) (-> self move-dest) f0-0 'interp) ) (logior! (-> self flags) 2) - (ja-no-eval :group! (-> self draw art-group data 4) - :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) frames num-frames) -1))) + (ja-no-eval :group! wren-peck-ja + :num! (seek! (the float (+ (-> (the-as art-joint-anim wren-peck-ja) frames num-frames) -1))) :frame-num 0.0 ) (until (ja-done? 0) @@ -236,7 +239,7 @@ (s5-1 (the int (* 300.0 (rand-vu-float-range 0.1 0.6)))) (f30-1 1.0) ) - (ja-no-eval :group! (-> self draw art-group data 2) :num! (loop! f30-1) :frame-num 0.0) + (ja-no-eval :group! wren-idle-ja :num! (loop! f30-1) :frame-num 0.0) (until (>= (- (-> self clock frame-counter) gp-1) s5-1) (suspend) (ja :num! (loop! f30-1)) @@ -247,7 +250,7 @@ (s5-2 (the int (* 300.0 (rand-vu-float-range 0.2 1.5)))) (f30-3 1.0) ) - (ja-no-eval :group! (-> self draw art-group data 2) :num! (loop! f30-3) :frame-num 0.0) + (ja-no-eval :group! wren-idle-ja :num! (loop! f30-3) :frame-num 0.0) (until (>= (- (-> self clock frame-counter) gp-2) s5-2) (suspend) (ja :num! (loop! f30-3)) @@ -292,15 +295,15 @@ (s5-0 240) (f30-0 2.0) ) - (ja-no-eval :group! (-> self draw art-group data 5) :num! (loop! f30-0) :frame-num 0.0) + (ja-no-eval :group! wren-takeoff-ja :num! (loop! f30-0) :frame-num 0.0) (until (>= (- (-> self clock frame-counter) gp-0) s5-0) (suspend) (ja :num! (loop! f30-0)) ) ) (ja-channel-push! 2 (seconds 0.3)) - (ja-no-eval :group! (-> self draw art-group data 7) - :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 7)) frames num-frames) -1))) + (ja-no-eval :group! wren-glide-ja + :num! (seek! (the float (+ (-> (the-as art-joint-anim wren-glide-ja) frames num-frames) -1))) :frame-num 0.0 ) (let ((a0-4 (-> self skel root-channel 1))) @@ -308,13 +311,11 @@ (set! (-> a0-4 frame-interp 1) f0-5) (set! (-> a0-4 frame-interp 0) f0-5) ) - (set! (-> a0-4 frame-group) (the-as art-joint-anim (-> self draw art-group data 6))) - (set! (-> a0-4 param 0) - (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 6)) frames num-frames) -1)) - ) + (set! (-> a0-4 frame-group) (the-as art-joint-anim wren-fly-ja)) + (set! (-> a0-4 param 0) (the float (+ (-> (the-as art-joint-anim wren-fly-ja) frames num-frames) -1))) (set! (-> a0-4 param 1) 1.0) (set! (-> a0-4 frame-num) 0.0) - (joint-control-channel-group! a0-4 (the-as art-joint-anim (-> self draw art-group data 6)) num-func-seek!) + (joint-control-channel-group! a0-4 (the-as art-joint-anim wren-fly-ja) num-func-seek!) ) (until #f (let ((f0-11 (fmax -0.2 (fmin 0.5 (-> self fly-y-rate))))) @@ -328,12 +329,12 @@ (set! (-> v1-59 frame-interp 1) f0-23) (set! (-> v1-59 frame-interp 0) f0-23) ) - (set! (-> v1-59 frame-group) (the-as art-joint-anim (-> self draw art-group data 7))) + (set! (-> v1-59 frame-group) (the-as art-joint-anim wren-glide-ja)) ) (let ((v1-62 (-> self skel root-channel 1))) (set! (-> v1-62 frame-interp 1) f30-1) (set! (-> v1-62 frame-interp 0) f30-1) - (set! (-> v1-62 frame-group) (the-as art-joint-anim (-> self draw art-group data 6))) + (set! (-> v1-62 frame-group) (the-as art-joint-anim wren-fly-ja)) ) (let ((f30-2 (lerp 0.6 2.4 f30-1))) (ja :num! (loop! f30-2)) @@ -354,8 +355,8 @@ (set! (-> self bob-level-seek) 0.0) (ja-channel-push! 1 (seconds 0.3)) (while (!= (-> self path-u) 1.0) - (ja-no-eval :group! (-> self draw art-group data 8) - :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 8)) frames num-frames) -1))) + (ja-no-eval :group! wren-land-ja + :num! (seek! (the float (+ (-> (the-as art-joint-anim wren-land-ja) frames num-frames) -1))) :frame-num 0.0 ) (until (ja-done? 0) @@ -405,7 +406,7 @@ (s5-0 (the int (* 300.0 (rand-vu-float-range 4.2 16.8)))) (f30-1 1.0) ) - (ja-no-eval :group! (-> self draw art-group data 2) :num! (loop! f30-1) :frame-num 0.0) + (ja-no-eval :group! wren-idle-ja :num! (loop! f30-1) :frame-num 0.0) (until (>= (- (-> self clock frame-counter) gp-0) s5-0) (suspend) (ja :num! (loop! f30-1)) @@ -416,7 +417,7 @@ (s5-1 600) (f30-2 1.0) ) - (ja-no-eval :group! (-> self draw art-group data 2) :num! (loop! f30-2) :frame-num 0.0) + (ja-no-eval :group! wren-idle-ja :num! (loop! f30-2) :frame-num 0.0) (until (>= (- (-> self clock frame-counter) gp-1) s5-1) (suspend) (ja :num! (loop! f30-2)) @@ -458,6 +459,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! wren ((obj wren) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/goal_src/jak2/levels/fortress/ammo_dump/fordumpa-obs.gc b/goal_src/jak2/levels/fortress/ammo_dump/fordumpa-obs.gc index 340a8950d4..83f7569b42 100644 --- a/goal_src/jak2/levels/fortress/ammo_dump/fordumpa-obs.gc +++ b/goal_src/jak2/levels/fortress/ammo_dump/fordumpa-obs.gc @@ -27,8 +27,8 @@ ) -(defskelgroup skel-fort-elec-switch fort-elec-switch 0 2 - ((1 (meters 999999))) +(defskelgroup skel-fort-elec-switch fort-elec-switch fort-elec-switch-lod0-jg fort-elec-switch-idle-ja + ((fort-elec-switch-lod0-mg (meters 999999))) :bounds (static-spherem 0 2 0 3) ) @@ -239,6 +239,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-elec-switch ((obj fort-elec-switch) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) @@ -343,9 +349,15 @@ ) -(defskelgroup skel-fort-fence-a fort-fence 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 5.6 0 16)) +(defskelgroup skel-fort-fence-a fort-fence fort-fence-a-lod0-jg fort-fence-a-idle-ja + ((fort-fence-a-lod0-mg (meters 999999))) + :bounds (static-spherem 0 5.6 0 16) + ) -(defskelgroup skel-fort-fence-b fort-fence 5 7 ((6 (meters 999999))) :bounds (static-spherem 0 11 0 18)) +(defskelgroup skel-fort-fence-b fort-fence fort-fence-b-lod0-jg fort-fence-b-idle-ja + ((fort-fence-b-lod0-mg (meters 999999))) + :bounds (static-spherem 0 11 0 18) + ) (defmethod fort-fence-method-22 fort-fence ((obj fort-fence)) 0 @@ -445,6 +457,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-fence ((obj fort-fence) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (fort-fence-method-23 obj) (process-drawable-from-entity! obj arg0) diff --git a/goal_src/jak2/levels/fortress/ammo_dump/fordumpb-obs.gc b/goal_src/jak2/levels/fortress/ammo_dump/fordumpb-obs.gc index df69a1cdfa..1be5ef87ed 100644 --- a/goal_src/jak2/levels/fortress/ammo_dump/fordumpb-obs.gc +++ b/goal_src/jak2/levels/fortress/ammo_dump/fordumpb-obs.gc @@ -20,8 +20,8 @@ ) -(defskelgroup skel-fort-plat-orbit fort-plat-orbit 0 2 - ((1 (meters 999999))) +(defskelgroup skel-fort-plat-orbit fort-plat-orbit fort-plat-orbit-lod0-jg fort-plat-orbit-idle-ja + ((fort-plat-orbit-lod0-mg (meters 999999))) :bounds (static-spherem 0 16 0 22) ) @@ -56,6 +56,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-plat-orbit ((obj fort-plat-orbit) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) @@ -128,7 +134,7 @@ (if #t (set! v1-34 (logior v1-34 1)) ) - (set! (-> a1-23 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-23 sync-type) 'sync-linear) (set! (-> a1-23 sync-flags) (the-as sync-flags v1-34)) ) (set! (-> a1-23 entity) (-> obj entity)) @@ -163,8 +169,8 @@ ) -(defskelgroup skel-fort-plat-shuttle fort-plat-shuttle 0 3 - ((1 (meters 999999))) +(defskelgroup skel-fort-plat-shuttle fort-plat-shuttle fort-plat-shuttle-lod0-jg fort-plat-shuttle-idle-ja + ((fort-plat-shuttle-lod0-mg (meters 999999))) :bounds (static-spherem 0 -0.5 0 7.6) ) @@ -315,6 +321,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-plat-shuttle ((obj fort-plat-shuttle) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-64 int)) (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) @@ -340,7 +352,7 @@ (if #t (set! v1-8 (logior v1-8 1)) ) - (set! (-> s4-1 sync-type) (the-as basic 'sync-linear)) + (set! (-> s4-1 sync-type) 'sync-linear) (set! (-> s4-1 sync-flags) (the-as sync-flags v1-8)) ) (set! (-> s4-1 entity) arg0) @@ -368,7 +380,10 @@ ) -(defskelgroup skel-fort-conveyor fort-conveyor 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 36)) +(defskelgroup skel-fort-conveyor fort-conveyor fort-conveyor-lod0-jg fort-conveyor-idle-ja + ((fort-conveyor-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 36) + ) (defmethod get-art-group fort-conveyor ((obj fort-conveyor)) "@returns The respective [[art-group]] for the [[conveyor]]" @@ -425,7 +440,7 @@ (defmethod set-and-get-ambient-sound! fort-conveyor ((obj fort-conveyor)) "So long as [[actor-option::16]] is not set, fetch the [[ambient-sound]] for the [[conveyor]] - and return it as well. Otherwise, set it to `0`" +and return it as well. Otherwise, set it to `0`" (let* ((s5-0 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) 0.0 'interp)) (v1-2 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) 1.0 'interp)) (a3-3 (vector+! (new 'stack-no-clear 'vector) s5-0 v1-2)) diff --git a/goal_src/jak2/levels/fortress/ammo_dump/fordumpc-obs.gc b/goal_src/jak2/levels/fortress/ammo_dump/fordumpc-obs.gc index 923643f079..e0a3d56765 100644 --- a/goal_src/jak2/levels/fortress/ammo_dump/fordumpc-obs.gc +++ b/goal_src/jak2/levels/fortress/ammo_dump/fordumpc-obs.gc @@ -58,8 +58,8 @@ ) -(defskelgroup skel-fort-dump-bomb-a fort-dump-bomb-a 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-fort-dump-bomb-a fort-dump-bomb-a fort-dump-bomb-a-lod0-jg fort-dump-bomb-a-idle-ja + ((fort-dump-bomb-a-lod0-mg (meters 20)) (fort-dump-bomb-a-lod1-mg (meters 999999))) :bounds (static-spherem 0 2.5 0 3.3) ) @@ -151,6 +151,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-dump-bomb-a ((obj fort-dump-bomb-a) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec bot)) @@ -201,13 +207,13 @@ ) -(defskelgroup skel-fort-missile-target fort-missile-target 0 2 - ((1 (meters 999999))) +(defskelgroup skel-fort-missile-target fort-missile-target fort-missile-target-lod0-jg fort-missile-target-idle-ja + ((fort-missile-target-lod0-mg (meters 999999))) :bounds (static-spherem 0 -0.5 -0.5 3.4) ) -(defskelgroup skel-fort-missile-target-explode fort-missile-target 3 5 - ((4 (meters 999999))) +(defskelgroup skel-fort-missile-target-explode fort-missile-target fort-missile-target-explode-lod0-jg fort-missile-target-explode-idle-ja + ((fort-missile-target-explode-lod0-mg (meters 999999))) :bounds (static-spherem 0 -0.5 -0.5 3.4) ) @@ -476,7 +482,10 @@ ) -(defskelgroup skel-fort-missile fort-missile 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 -11 0 29)) +(defskelgroup skel-fort-missile fort-missile fort-missile-lod0-jg fort-missile-idle-ja + ((fort-missile-lod0-mg (meters 999999))) + :bounds (static-spherem 0 -11 0 29) + ) (defstate idle (fort-missile) :virtual #t @@ -966,6 +975,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-missile ((obj fort-missile) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) diff --git a/goal_src/jak2/levels/fortress/ammo_dump/fort-robotank-turret.gc b/goal_src/jak2/levels/fortress/ammo_dump/fort-robotank-turret.gc index 349ed803a3..3369fbaab0 100644 --- a/goal_src/jak2/levels/fortress/ammo_dump/fort-robotank-turret.gc +++ b/goal_src/jak2/levels/fortress/ammo_dump/fort-robotank-turret.gc @@ -93,7 +93,10 @@ ) -(defskelgroup skel-fort-roboscreen fort-roboscreen 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 8)) +(defskelgroup skel-fort-roboscreen fort-roboscreen fort-roboscreen-lod0-jg fort-roboscreen-idle-ja + ((fort-roboscreen-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 8) + ) (defstate idle (fort-roboscreen) :virtual #t @@ -359,11 +362,11 @@ :init-specs ((sp-rnd-flt spt-fade-a -0.064 -0.064 1.0)) ) -(defskelgroup skel-fort-robotank-reticle fort-robotank-sight 0 3 - ((1 (meters 999999))) +(defskelgroup skel-fort-robotank-reticle fort-robotank-sight fort-robotank-sight-lod0-jg fort-robotank-sight-idle-ja + ((fort-robotank-sight-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0.5 84) :longest-edge (meters 80) - :shadow 2 + :shadow fort-robotank-sight-shadow-mg :origin-joint-index 5 ) @@ -679,7 +682,7 @@ (defmethod init-proj-settings! fort-robotank-shot ((obj fort-robotank-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (set! (-> obj attack-mode) 'fort-robotank-shot) (set! (-> obj max-speed) 819200.0) @@ -692,8 +695,8 @@ (none) ) -(defskelgroup skel-fort-robotank-turret fort-robotank-top 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-fort-robotank-turret fort-robotank-top fort-robotank-top-lod0-jg fort-robotank-top-idle-ja + ((fort-robotank-top-lod0-mg (meters 20)) (fort-robotank-top-lod1-mg (meters 999999))) :bounds (static-spherem 0 0 0 4) :origin-joint-index 3 ) @@ -719,28 +722,7 @@ ) ;; WARN: Return type mismatch pointer vs symbol. -;; WARN: Failed store: (s.w! (+ t5-0 8) 0) at op 82 -;; WARN: Failed store: (s.w! (+ t5-0 12) t6-1) at op 84 -;; WARN: Failed store: (s.d! (+ t5-2 8) t1-0) at op 90 -;; WARN: Failed store: (s.q! (+ t5-4 16) t6-3) at op 98 -;; WARN: Failed store: (s.q! (+ t5-4 32) t6-4) at op 100 -;; WARN: Failed store: (s.q! (+ t5-4 48) t6-5) at op 102 -;; WARN: Failed store: (s.d! (+ t5-6 8) t1-0) at op 108 -;; WARN: Failed store: (s.q! (+ t5-8 16) t3-1) at op 116 -;; WARN: Failed store: (s.q! (+ t5-8 32) t3-2) at op 118 -;; WARN: Failed store: (s.q! (+ t5-8 48) t3-3) at op 120 -;; WARN: Failed store: (s.d! (+ t4-5 8) t1-0) at op 126 -;; WARN: Failed store: (s.q! (+ t4-7 16) t2-1) at op 134 -;; WARN: Failed store: (s.q! (+ t4-7 32) t2-2) at op 136 -;; WARN: Failed store: (s.q! (+ t4-7 48) t2-3) at op 138 -;; WARN: Failed store: (s.d! (+ t3-7 8) t1-0) at op 144 -;; WARN: Failed store: (s.q! (+ t1-1 16) a3-1) at op 152 -;; WARN: Failed store: (s.q! (+ t1-1 32) a3-2) at op 154 -;; WARN: Failed store: (s.q! (+ t1-1 48) a1-2) at op 156 -;; WARN: Failed load: (set! t0-6 (l.d (+ a0-28 8))) at op 170 -;; WARN: Failed store: (s.d! (+ a0-28 8) a3-10) at op 175 -;; WARN: Failed store: (s.w! (+ a0-29 8) 0) at op 183 -;; WARN: Failed store: (s.w! (+ a0-29 12) 0) at op 184 +;; ERROR: Failed store: (s.w! (+ t5-0 8) 0) at op 82 (defmethod fort-robotank-turret-method-32 fort-robotank-turret ((obj fort-robotank-turret) (arg0 (inline-array vector))) (let ((gp-0 (new 'stack-no-clear 'projectile-init-by-other-params))) diff --git a/goal_src/jak2/levels/fortress/ammo_dump/fort-robotank.gc b/goal_src/jak2/levels/fortress/ammo_dump/fort-robotank.gc index d28c134b1a..bc65357abf 100644 --- a/goal_src/jak2/levels/fortress/ammo_dump/fort-robotank.gc +++ b/goal_src/jak2/levels/fortress/ammo_dump/fort-robotank.gc @@ -265,8 +265,8 @@ ) ) -(defskelgroup skel-fort-robotank fort-robotank 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-fort-robotank fort-robotank fort-robotank-lod0-jg fort-robotank-idle-ja + ((fort-robotank-lod0-mg (meters 20)) (fort-robotank-lod1-mg (meters 999999))) :bounds (static-spherem 0 0 0 9) :origin-joint-index 3 ) @@ -1020,6 +1020,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-robotank ((obj fort-robotank) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) diff --git a/goal_src/jak2/levels/fortress/exit/forexita-obs.gc b/goal_src/jak2/levels/fortress/exit/forexita-obs.gc index 0e43865492..b55bb3bbff 100644 --- a/goal_src/jak2/levels/fortress/exit/forexita-obs.gc +++ b/goal_src/jak2/levels/fortress/exit/forexita-obs.gc @@ -31,10 +31,10 @@ (art-group-get-by-name *level* "skel-fort-lift-plat" (the-as (pointer uint32) #f)) ) -; (defmethod base-plat-method-32 fort-lift-plat ((obj fort-lift-plat)) -; 0 -; (none) -; ) +;; (defmethod base-plat-method-32 fort-lift-plat ((obj fort-lift-plat)) +;; 0 +;; (none) +;; ) (defstate plat-idle (fort-lift-plat) :virtual #t @@ -128,8 +128,8 @@ ) ;; WARN: Return type mismatch collide-shape-moving vs none. -(defmethod base-plat-method-31 fort-lift-plat ((obj fort-lift-plat)) - "TODO - collision stuff" +(defmethod init-plat-collision! fort-lift-plat ((obj fort-lift-plat)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s5-0 reaction) cshape-reaction-default) @@ -198,7 +198,9 @@ ) ;; WARN: Return type mismatch sound-id vs none. -(defmethod base-plat-method-33 fort-lift-plat ((obj fort-lift-plat)) +(defmethod init-plat! fort-lift-plat ((obj fort-lift-plat)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." (set! (-> obj root-override pause-adjust-distance) 327680.0) (set! (-> obj sound-id) (new-sound-id)) (none) @@ -212,9 +214,9 @@ (defmethod plat-path-sync fort-lift-plat ((obj fort-lift-plat)) "If the `sync` period is greater than `0` then transition the state to [[plat::35]] - otherwise, [[plat::34]] +otherwise, [[plat::34]] - @see [[sync-eased]]" +@see [[sync-eased]]" (cond ((logtest? (-> obj path flags) (path-control-flag not-found)) (go (method-of-object obj plat-idle)) @@ -294,6 +296,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-claw ((obj fort-claw) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/goal_src/jak2/levels/fortress/fort-turret.gc b/goal_src/jak2/levels/fortress/fort-turret.gc index ee92497fce..d489b19b83 100644 --- a/goal_src/jak2/levels/fortress/fort-turret.gc +++ b/goal_src/jak2/levels/fortress/fort-turret.gc @@ -390,16 +390,16 @@ (none) ) -(defskelgroup skel-fort-turret fort-turret 0 4 - ((1 (meters 999999))) +(defskelgroup skel-fort-turret fort-turret fort-turret-lod0-jg fort-turret-idle-ja + ((fort-turret-lod0-mg (meters 999999))) :bounds (static-spherem 8 11.25 0 16.5) - :shadow 3 + :shadow fort-turret-shadow-mg :origin-joint-index 3 :shadow-joint-index 3 ) -(defskelgroup skel-fort-turret-explode fort-turret 7 9 - ((8 (meters 999999))) +(defskelgroup skel-fort-turret-explode fort-turret fort-turret-explode-lod0-jg fort-turret-explode-idle-ja + ((fort-turret-explode-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 15) ) @@ -457,10 +457,6 @@ ) ) -(defmethod coin-flip? fort-turret ((obj fort-turret)) - "@returns The result of a 50/50 RNG roll" - #f - ) (define *fort-turret-enemy-info* (new 'static 'enemy-info @@ -768,8 +764,8 @@ ) :code (behavior () (sound-play "turret-up") - (ja-no-eval :group! (-> self draw art-group data 6) - :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 6)) frames num-frames) -1))) + (ja-no-eval :group! fort-turret-rise-ja + :num! (seek! (the float (+ (-> (the-as art-joint-anim fort-turret-rise-ja) frames num-frames) -1))) :frame-num 0.0 ) (until (ja-done? 0) @@ -792,8 +788,8 @@ (fort-turret-method-142 self #t gp-2) ) ) - (ja-no-eval :group! (-> self draw art-group data 5) - :num! (seek! (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) frames num-frames) -1))) + (ja-no-eval :group! fort-turret-shoot-ja + :num! (seek! (the float (+ (-> (the-as art-joint-anim fort-turret-shoot-ja) frames num-frames) -1))) :frame-num 0.0 ) (until (ja-done? 0) @@ -876,7 +872,7 @@ (set! (-> self desired-tilt) 0.0) (set! (-> self desired-twist) 0.0) (ja-channel-push! 1 (seconds 0.5)) - (ja :group! (-> self draw art-group data 4)) + (ja :group! fort-turret-idle-ja) (none) ) :trans (behavior () @@ -1056,6 +1052,10 @@ (none) ) +(defmethod coin-flip? fort-turret ((obj fort-turret)) + "@returns The result of a 50/50 RNG roll" + #f + ) ;; WARN: Return type mismatch enemy vs fort-turret. (defmethod relocate fort-turret ((obj fort-turret) (arg0 int)) @@ -1100,7 +1100,7 @@ (if #t (set! v1-21 (logior v1-21 1)) ) - (set! (-> a1-7 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-7 sync-type) 'sync-linear) (set! (-> a1-7 sync-flags) (the-as sync-flags v1-21)) ) (set! (-> a1-7 entity) (-> obj entity)) diff --git a/goal_src/jak2/levels/fortress/fortress-obs.gc b/goal_src/jak2/levels/fortress/fortress-obs.gc index 51f7eed247..519518bd09 100644 --- a/goal_src/jak2/levels/fortress/fortress-obs.gc +++ b/goal_src/jak2/levels/fortress/fortress-obs.gc @@ -152,6 +152,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-trap-door ((obj fort-trap-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) diff --git a/goal_src/jak2/levels/fortress/prison/prison-obs.gc b/goal_src/jak2/levels/fortress/prison/prison-obs.gc index fd90396e3b..e51016d7d2 100644 --- a/goal_src/jak2/levels/fortress/prison/prison-obs.gc +++ b/goal_src/jak2/levels/fortress/prison/prison-obs.gc @@ -261,6 +261,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! prsn-hang-cell ((obj prsn-hang-cell) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (with-pp (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) @@ -415,6 +421,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! prsn-cell-door ((obj prsn-cell-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) @@ -484,6 +496,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! prsn-vent-fan ((obj prsn-vent-fan) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -536,6 +554,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! prsn-torture ((obj prsn-torture) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 penetrated-by) (penetrate)) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 9) 0))) diff --git a/goal_src/jak2/levels/gungame/gun-dummy.gc b/goal_src/jak2/levels/gungame/gun-dummy.gc index c8e44df780..780016f30b 100644 --- a/goal_src/jak2/levels/gungame/gun-dummy.gc +++ b/goal_src/jak2/levels/gungame/gun-dummy.gc @@ -9,17 +9,33 @@ (defenum tpath-control-frame-command :type uint8 (begin) ;; kinda a guess - (tpath-control-frame-command-1) - (tpath-control-frame-command-2) - (tpath-control-frame-command-3) - (tpath-control-frame-command-4) - (tpath-control-frame-command-5) + (arise) + (translate) + (wait) + (align-with-track) + (lower) (end) ;; kinda a guess ) ;; ---tpath-control-frame-command (declare-type training-manager process) +;; +++tpath-info-flags +(defenum tpath-info-flags + :type uint8 + :bitfield #t + (tpath-info-flags-0) + (broken) + (score-not-influenced-by-speed) + (tpath-info-flags-3) + (start-on-rand-anim) + (double-hitpoints) + (tpath-info-flags-6) ;; unknown - TODO i think this is related to the peacemaker course + (tpath-info-flags-7) + ) +;; ---tpath-info-flags + + ;; DECOMP BEGINS (defpartgroup group-gun-dummy-sparks @@ -1157,6 +1173,7 @@ ;; WARN: Return type mismatch number vs none. (defun check-gungame-piece-ground ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "Ensures the splatter that sits below the dummy when destroyed is at the right height" (if (and (>= 35635.2 (-> arg2 vector 0 y)) (>= 0.0 (-> arg1 vel-sxvel y))) (set! (-> arg2 vector 0 y) 35635.2) (set! (-> arg1 next-time) @@ -1561,7 +1578,7 @@ (num uint16 :offset-assert 4) (ref-time-num int16 :offset-assert 6) (score int16 :offset-assert 8) - (flags uint8 :offset-assert 10) + (flags tpath-info-flags :offset-assert 10) (num-anims uint8 :offset-assert 11) (bonus-time float :offset-assert 12) (list (array int32) :offset-assert 16) @@ -1606,11 +1623,11 @@ :flag-assert #x2100f00168 (:methods (idle () _type_ :state 27) - (gun-dummy-method-28 (_type_) none 28) - (gun-dummy-method-29 (_type_) symbol 29) - (gun-dummy-method-30 (_type_) float 30) - (gun-dummy-method-31 (_type_ tpath-info) none 31) - (gun-dummy-method-32 (_type_) none 32) + (init-dummy-collison! (_type_) none 28) + (path-playing? (_type_) symbol 29) + (path-time-elapsed (_type_) float 30) + (init-tpath-info! (_type_ tpath-info) none 31) + (break-dummy (_type_) none 32) ) ) @@ -1934,51 +1951,58 @@ ) ) -(defmethod gun-dummy-method-32 gun-dummy ((obj gun-dummy)) +(defmethod break-dummy gun-dummy ((obj gun-dummy)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" 0 (none) ) -(defmethod gun-dummy-method-30 gun-dummy ((obj gun-dummy)) - (let ((f0-0 0.0)) - (let ((v1-0 (the-as object (-> obj current)))) +(defmethod path-time-elapsed gun-dummy ((obj gun-dummy)) + "@returns Calculates the combined total time across all control frames in the path" + (let ((total-time 0.0)) + (let ((curr-frame (the-as tpath-control-frame (-> obj current)))) (loop - (case (-> (the-as tpath-control-frame v1-0) command) + (case (-> curr-frame command) (((tpath-control-frame-command begin)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) - (((tpath-control-frame-command tpath-control-frame-command-1)) - (+! f0-0 (-> (the-as tpath-control-frame v1-0) time)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (((tpath-control-frame-command arise)) + (+! total-time (-> curr-frame time)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) - (((tpath-control-frame-command tpath-control-frame-command-5)) - (+! f0-0 (-> (the-as tpath-control-frame v1-0) time)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (((tpath-control-frame-command lower)) + (+! total-time (-> curr-frame time)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) - (((tpath-control-frame-command tpath-control-frame-command-4)) - (+! f0-0 (-> (the-as tpath-control-frame v1-0) time)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (((tpath-control-frame-command align-with-track)) + (+! total-time (-> curr-frame time)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) - (((tpath-control-frame-command tpath-control-frame-command-2)) - (+! f0-0 (-> (the-as tpath-control-frame v1-0) time)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (((tpath-control-frame-command translate)) + (+! total-time (-> curr-frame time)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) - (((tpath-control-frame-command tpath-control-frame-command-3)) - (+! f0-0 (-> (the-as tpath-control-frame v1-0) time)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (((tpath-control-frame-command wait)) + (+! total-time (-> curr-frame time)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) (((tpath-control-frame-command end)) - (return f0-0) + (return total-time) ) ) ) ) - f0-0 + total-time ) ) -(defmethod gun-dummy-method-29 gun-dummy ((obj gun-dummy)) - (local-vars (at-0 int) (v0-1 symbol)) +(defmethod path-playing? gun-dummy ((obj gun-dummy)) + "Core functionality for playing back the dummy's path. Does things like: +- calculates the score in case the dummy is hit based on the time elapsed +- moves around the dummy +- plays sounds accordingly +@returns if the dummy's current path is still in progress" + (local-vars (at-0 int) (ret symbol)) (with-pp (rlet ((acc :class vf) (vf0 :class vf) @@ -1990,27 +2014,27 @@ (vf7 :class vf) ) (init-vf0-vector) - (let ((s5-0 (-> obj current)) - (a1-0 (new 'stack-no-clear 'event-message-block)) + (let ((curr-path-command (-> obj current)) + (event-msg-block (new 'stack-no-clear 'event-message-block)) ) - (set! (-> a1-0 from) (process->ppointer pp)) - (set! (-> a1-0 num-params) 1) - (set! (-> a1-0 message) 'path) - (set! (-> a1-0 param 0) (-> obj path-num)) - (let ((s4-0 (the-as path-control (send-event-function (handle->process (-> obj train-man)) a1-0))) + (set! (-> event-msg-block from) (process->ppointer pp)) + (set! (-> event-msg-block num-params) 1) + (set! (-> event-msg-block message) 'path) + (set! (-> event-msg-block param 0) (-> obj path-num)) + (let ((path (the-as path-control (send-event-function (handle->process (-> obj train-man)) event-msg-block))) (f30-0 (* 0.0033333334 (the float (- (-> pp clock frame-counter) (-> obj state-time))))) ) - (if (not s4-0) + (if (not path) (return #f) ) - (case (-> s5-0 0 command) - (((tpath-control-frame-command tpath-control-frame-command-1)) - (set! (-> obj path-pos) (* 0.007843138 (the float (-> s5-0 0 path-pos)))) - (get-point-in-path! s4-0 (-> obj root-override trans) (-> obj path-pos) 'interp) - (+! (-> obj root-override trans y) (lerp-scale -16384.0 0.0 f30-0 0.0 (-> s5-0 0 time))) - (let* ((s3-0 (get-point-in-path! s4-0 (new 'stack-no-clear 'vector) (-> obj path-pos) 'interp)) + (case (-> curr-path-command 0 command) + (((tpath-control-frame-command arise)) + (set! (-> obj path-pos) (* 0.007843138 (the float (-> curr-path-command 0 path-pos)))) + (get-point-in-path! path (-> obj root-override trans) (-> obj path-pos) 'interp) + (+! (-> obj root-override trans y) (lerp-scale -16384.0 0.0 f30-0 0.0 (-> curr-path-command 0 time))) + (let* ((s3-0 (get-point-in-path! path (new 'stack-no-clear 'vector) (-> obj path-pos) 'interp)) (v1-26 (get-point-in-path! - s4-0 + path (new 'stack-no-clear 'vector) (if (< (-> obj path-pos) 0.01) (+ 0.1 (-> obj path-pos)) @@ -2033,33 +2057,33 @@ (sound-play "target-up-slow") ) (set! (-> obj first-time-command) #f) - (when (>= f30-0 (-> s5-0 0 time)) + (when (>= f30-0 (-> curr-path-command 0 time)) (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) (set! (-> obj first-time-command) #t) (set! (-> obj state-time) (-> pp clock frame-counter)) ) (return #t) - v0-1 + ret ) - (((tpath-control-frame-command tpath-control-frame-command-5)) - (get-point-in-path! s4-0 (-> obj root-override trans) (-> obj path-pos) 'interp) - (+! (-> obj root-override trans y) (lerp-scale 0.0 -16384.0 f30-0 0.0 (-> s5-0 0 time))) + (((tpath-control-frame-command lower)) + (get-point-in-path! path (-> obj root-override trans) (-> obj path-pos) 'interp) + (+! (-> obj root-override trans y) (lerp-scale 0.0 -16384.0 f30-0 0.0 (-> curr-path-command 0 time))) (if (-> obj first-time-command) (sound-play "target-dwn-slow") ) (set! (-> obj first-time-command) #f) - (when (>= f30-0 (-> s5-0 0 time)) + (when (>= f30-0 (-> curr-path-command 0 time)) (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) (set! (-> obj first-time-command) #t) (set! (-> obj state-time) (-> pp clock frame-counter)) ) (return #t) - v0-1 + ret ) - (((tpath-control-frame-command tpath-control-frame-command-4)) - (let ((s3-3 (get-point-in-path! s4-0 (new 'stack-no-clear 'vector) (-> obj path-pos) 'interp))) + (((tpath-control-frame-command align-with-track)) + (let ((s3-3 (get-point-in-path! path (new 'stack-no-clear 'vector) (-> obj path-pos) 'interp))) (let* ((v1-68 (get-point-in-path! - s4-0 + path (new 'stack-no-clear 'vector) (if (< (-> obj path-pos) 0.01) (+ 0.1 (-> obj path-pos)) @@ -2080,25 +2104,25 @@ (quaternion-normalize! (-> obj quat-ground)) (set! (-> obj root-override trans quad) (-> s3-3 quad)) ) - (set! (-> obj inout-percent) (lerp-scale 0.0 1.0 f30-0 0.0 (-> s5-0 0 time))) + (set! (-> obj inout-percent) (lerp-scale 0.0 1.0 f30-0 0.0 (-> curr-path-command 0 time))) (set! (-> obj first-time-command) #f) - (when (>= f30-0 (-> s5-0 0 time)) + (when (>= f30-0 (-> curr-path-command 0 time)) (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) (set! (-> obj inout-percent) 1.0) (set! (-> obj first-time-command) #t) (set! (-> obj state-time) (-> pp clock frame-counter)) ) (return #t) - v0-1 + ret ) - (((tpath-control-frame-command tpath-control-frame-command-2)) + (((tpath-control-frame-command translate)) (set! (-> obj score) (- (-> obj score) (* (-> obj score-speed) (-> pp clock seconds-per-frame)))) (set! (-> obj inout-percent) (fmax 0.0 (- (-> obj inout-percent) (* 4.0 (-> pp clock seconds-per-frame))))) (let ((s2-4 (new 'stack-no-clear 'vector)) (s3-4 (new 'stack-no-clear 'vector)) - (f28-2 (lerp-scale 0.0 1.0 f30-0 0.0 (-> s5-0 0 time))) + (f28-2 (lerp-scale 0.0 1.0 f30-0 0.0 (-> curr-path-command 0 time))) ) - (let ((v1-87 (-> s5-0 0 move-type))) + (let ((v1-87 (-> curr-path-command 0 move-type))) (cond ((zero? v1-87) ) @@ -2113,8 +2137,8 @@ ) ) ) - (get-point-in-path! s4-0 s2-4 (-> obj path-pos) 'interp) - (get-point-in-path! s4-0 s3-4 (* 0.007843138 (the float (-> s5-0 0 path-pos))) 'interp) + (get-point-in-path! path s2-4 (-> obj path-pos) 'interp) + (get-point-in-path! path s3-4 (* 0.007843138 (the float (-> curr-path-command 0 path-pos))) 'interp) (let ((v1-102 (new 'stack-no-clear 'vector))) (set! (-> v1-102 quad) (-> obj root-override trans quad)) (vector-float*! (-> obj root-override trans) s2-4 (- 1.0 f28-2)) @@ -2159,7 +2183,7 @@ (spawn (-> obj part) (-> obj root-override trans)) ) (set! (-> obj first-time-command) #f) - (when (>= f30-0 (-> s5-0 0 time)) + (when (>= f30-0 (-> curr-path-command 0 time)) (when (nonzero? (-> obj move-sound)) (sound-stop (-> obj move-sound)) (set! (-> obj move-sound) (new 'static 'sound-id)) @@ -2167,31 +2191,31 @@ ) (sound-play "target-stop") (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) - (set! (-> obj path-pos) (* 0.007843138 (the float (-> s5-0 0 path-pos)))) + (set! (-> obj path-pos) (* 0.007843138 (the float (-> curr-path-command 0 path-pos)))) (set! (-> obj first-time-command) #t) (set! (-> obj state-time) (-> pp clock frame-counter)) ) (return #t) - v0-1 + ret ) - (((tpath-control-frame-command tpath-control-frame-command-3)) + (((tpath-control-frame-command wait)) (set! (-> obj score) (- (-> obj score) (* (-> obj score-speed) (-> pp clock seconds-per-frame)))) (set! (-> obj inout-percent) (fmax 0.0 (- (-> obj inout-percent) (* 4.0 (-> pp clock seconds-per-frame))))) - (get-point-in-path! s4-0 (-> obj root-override trans) (-> obj path-pos) 'interp) + (get-point-in-path! path (-> obj root-override trans) (-> obj path-pos) 'interp) (set! (-> obj first-time-command) #f) - (when (or (and (= (-> s5-0 0 time) -1.0) (< (-> obj hit-points) 0)) - (and (!= (-> s5-0 0 time) -1.0) (>= f30-0 (-> s5-0 0 time))) + (when (or (and (= (-> curr-path-command 0 time) -1.0) (< (-> obj hit-points) 0)) + (and (!= (-> curr-path-command 0 time) -1.0) (>= f30-0 (-> curr-path-command 0 time))) ) (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) (set! (-> obj first-time-command) #t) (set! (-> obj state-time) (-> pp clock frame-counter)) ) (return #t) - v0-1 + ret ) (((tpath-control-frame-command end)) (return #f) - v0-1 + ret ) ) ) @@ -2202,17 +2226,17 @@ (defmethod get-trans gun-dummy ((obj gun-dummy) (arg0 int)) "@returns the `trans` [[vector]] from the process's `root` (typically either a [[trsqv]] or a [[collide-shape]])" - (let ((v1-0 (-> obj root-override))) + (let ((root (-> obj root-override))) (case arg0 ((3 2) - (let ((v0-0 (new 'static 'vector :w 1.0))) - (set! (-> v0-0 quad) (-> v1-0 trans quad)) - (set! (-> v0-0 y) (+ 8192.0 (-> v0-0 y))) - v0-0 + (let ((vec (new 'static 'vector :w 1.0))) + (set! (-> vec quad) (-> root trans quad)) + (set! (-> vec y) (+ 8192.0 (-> vec y))) + vec ) ) (else - (-> v1-0 trans) + (-> root trans) ) ) ) @@ -2231,33 +2255,39 @@ (('track) (cond ((-> event param 0) - (if (and (not (logtest? (-> self info flags) 4)) (> (-> self hit-points) 0)) + (if (and (not (logtest? (-> self info flags) (tpath-info-flags score-not-influenced-by-speed))) + (> (-> self hit-points) 0) + ) #t 'abort ) ) (else - (and (not (logtest? (-> self info flags) 4)) (> (-> self hit-points) 0)) + (and (not (logtest? (-> self info flags) (tpath-info-flags score-not-influenced-by-speed))) + (> (-> self hit-points) 0) + ) ) ) ) (('attack) - (let ((s5-0 (the-as attack-info (-> event param 1)))) + (let ((attack-info (the-as attack-info (-> event param 1)))) (get-penetrate-using-from-attack-event (the-as process-drawable proc) event) - (when (or (not (logtest? (-> self info flags) 64)) - (and (logtest? (-> self info flags) 64) (or (= (-> s5-0 mode) 'eco-dark) (= (-> s5-0 mode) 'explode))) + (when (or (not (logtest? (-> self info flags) (tpath-info-flags tpath-info-flags-6))) + (and (logtest? (-> self info flags) (tpath-info-flags tpath-info-flags-6)) + (or (= (-> attack-info mode) 'eco-dark) (= (-> attack-info mode) 'explode)) + ) ) - (when (!= (-> s5-0 id) (-> self incoming-attack-id)) - (set! (-> self incoming-attack-id) (-> s5-0 id)) - (let ((s5-1 (if (type? proc process-drawable) - (the-as process-drawable proc) - ) - ) + (when (!= (-> attack-info id) (-> self incoming-attack-id)) + (set! (-> self incoming-attack-id) (-> attack-info id)) + (let ((proc-draw (if (type? proc process-drawable) + (the-as process-drawable proc) + ) + ) ) - (when s5-1 - (let ((gp-1 (-> s5-1 root))) - (when (if (type? gp-1 collide-shape) - gp-1 + (when proc-draw + (let ((cshape (-> proc-draw root))) + (when (if (type? cshape collide-shape) + cshape ) (vector+float*! (-> self impact) (-> self root-override trans) *up-vector* 8192.0) (vector+! @@ -2276,7 +2306,7 @@ (set! (-> self spin-sound) (sound-play "target-spin")) ) (else - (if (and (logtest? (process-mask projectile) (-> s5-1 mask)) + (if (and (logtest? (process-mask projectile) (-> proc-draw mask)) (< (- (-> self clock frame-counter) (-> self last-combo-time)) (seconds 1)) ) (send-event (ppointer->process (-> self parent)) 'combo) @@ -2306,7 +2336,7 @@ (none) ) :exit (behavior () - (logior! (-> self info flags) 2) + (logior! (-> self info flags) (tpath-info-flags broken)) (none) ) :code (behavior () @@ -2332,14 +2362,14 @@ (none) ) :post (behavior () - (set! (-> self done? value) (not (gun-dummy-method-29 self))) + (set! (-> self done? value) (not (path-playing? self))) (when (zero? (-> self hit-points)) - (logior! (-> self info flags) 2) + (logior! (-> self info flags) (tpath-info-flags broken)) (if (>= -100.0 (-> self score)) (sound-play "score-bad") ) (send-event (handle->process (-> self train-man)) 'score (the int (-> self score))) - (gun-dummy-method-32 self) + (break-dummy self) (set! (-> self hit-points) -1) ) (+! (-> self root-override trans y) (-> self y-offset)) @@ -2353,9 +2383,9 @@ 0 ) ) - (let ((gp-2 (vector-! (new 'stack-no-clear 'vector) (target-pos 0) (-> self root-override trans)))) - (vector-normalize! gp-2 1.0) - (seek-toward-heading-vec! (-> self root-override) gp-2 65536.0 (seconds 0.5)) + (let ((vec-to-target (vector-! (new 'stack-no-clear 'vector) (target-pos 0) (-> self root-override trans)))) + (vector-normalize! vec-to-target 1.0) + (seek-toward-heading-vec! (-> self root-override) vec-to-target 65536.0 (seconds 0.5)) ) (quaternion-rotate-local-y! (-> self root-override quat) (-> self root-override quat) (-> self rot-y-offset)) (quaternion-slerp! @@ -2369,28 +2399,29 @@ ) ) -(defmethod gun-dummy-method-28 gun-dummy ((obj gun-dummy)) - (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) - (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) - (set! (-> s5-0 reaction) cshape-reaction-default) - (set! (-> s5-0 no-reaction) +(defmethod init-dummy-collison! gun-dummy ((obj gun-dummy)) + "Initializes the collision related stuff for the dummy" + (let ((cshape-moving (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) + (set! (-> cshape-moving dynam) (copy *standard-dynamics* 'process)) + (set! (-> cshape-moving reaction) cshape-reaction-default) + (set! (-> cshape-moving no-reaction) (the-as (function collide-shape-moving collide-query vector vector object) nothing) ) - (set! (-> s5-0 penetrated-by) (penetrate)) - (let ((v1-6 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-6 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-6 prim-core action) (collide-action solid)) - (set! (-> v1-6 transform-index) 0) - (set-vector! (-> v1-6 local-sphere) 0.0 7372.8 0.0 10240.0) - (set! (-> s5-0 total-prims) (the-as uint 1)) - (set! (-> s5-0 root-prim) v1-6) + (set! (-> cshape-moving penetrated-by) (penetrate)) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape-moving (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 0) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 10240.0) + (set! (-> cshape-moving total-prims) (the-as uint 1)) + (set! (-> cshape-moving root-prim) prim-mesh) ) - (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w))) - (let ((v1-9 (-> s5-0 root-prim))) - (set! (-> s5-0 backup-collide-as) (-> v1-9 prim-core collide-as)) - (set! (-> s5-0 backup-collide-with) (-> v1-9 prim-core collide-with)) + (set! (-> cshape-moving nav-radius) (* 0.75 (-> cshape-moving root-prim local-sphere w))) + (let ((root-prim (-> cshape-moving root-prim))) + (set! (-> cshape-moving backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape-moving backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> obj root-override) s5-0) + (set! (-> obj root-override) cshape-moving) ) 0 (none) @@ -2403,7 +2434,13 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! gun-dummy ((obj gun-dummy) (arg0 entity-actor)) - (gun-dummy-method-28 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-dummy-collison! obj) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) (initialize-skeleton @@ -2416,13 +2453,14 @@ (none) ) -(defmethod gun-dummy-method-31 gun-dummy ((obj gun-dummy) (arg0 tpath-info)) +(defmethod init-tpath-info! gun-dummy ((obj gun-dummy) (arg0 tpath-info)) + "Given a [[tpath-info]] use it to initialize the dummy with any relevant data or flags" (set! (-> obj mask) (logior (process-mask enemy) (-> obj mask))) (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) (vector-identity! (-> obj root-override scale)) (quaternion-copy! (-> obj quat) (-> obj root-override quat)) (set! (-> obj root-override trans y) (+ -16384.0 (-> obj root-override trans y))) - (if (not (logtest? (-> arg0 flags) 16)) + (if (not (logtest? (-> arg0 flags) (tpath-info-flags start-on-rand-anim))) (set! *tpath-rand* (the-as uint (rand-vu-int-count 16))) ) (set! (-> obj current) @@ -2431,18 +2469,18 @@ (-> (the-as (inline-array tpath-control-frame) (-> arg0 anims (mod *tpath-rand* (-> arg0 num-anims)))) 0) ) ) - (let ((v1-19 (-> obj current))) - (when (= (-> v1-19 0 command) (tpath-control-frame-command begin)) - (set! (-> obj path-num) (-> v1-19 0 path-num)) + (let ((path (-> obj current))) + (when (= (-> path 0 command) (tpath-control-frame-command begin)) + (set! (-> obj path-num) (-> path 0 path-num)) (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) ) ) (set! (-> obj score) (the float (-> arg0 score))) - (if (logtest? (-> arg0 flags) 4) + (if (logtest? (-> arg0 flags) (tpath-info-flags score-not-influenced-by-speed)) (set! (-> obj score-speed) 0.0) - (set! (-> obj score-speed) (/ (-> obj score) (gun-dummy-method-30 obj))) + (set! (-> obj score-speed) (/ (-> obj score) (path-time-elapsed obj))) ) - (set! (-> obj hit-points) (if (logtest? (-> arg0 flags) 32) + (set! (-> obj hit-points) (if (logtest? (-> arg0 flags) (tpath-info-flags double-hitpoints)) 2 1 ) @@ -2544,19 +2582,20 @@ ) -(defmethod gun-dummy-method-32 gun-dummy-a ((obj gun-dummy-a)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-a ((obj gun-dummy-a)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) - (set! (-> s5-1 fountain-rand-transv-hi x) 4096.0) - (set! (-> s5-1 fountain-rand-transv-hi y) 122880.0) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) + (set! (-> exploder-tuning fountain-rand-transv-hi x) 4096.0) + (set! (-> exploder-tuning fountain-rand-transv-hi y) 122880.0) (process-spawn part-tracker :init part-tracker-init @@ -2572,7 +2611,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-a-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-a-exploder-params* :to obj ) @@ -2581,17 +2620,18 @@ (none) ) -(defmethod gun-dummy-method-32 gun-dummy-b ((obj gun-dummy-b)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-b ((obj gun-dummy-b)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) (process-spawn part-tracker :init part-tracker-init @@ -2607,7 +2647,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-b-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-b-exploder-params* :to obj ) @@ -2616,17 +2656,18 @@ (none) ) -(defmethod gun-dummy-method-32 gun-dummy-c ((obj gun-dummy-c)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-c ((obj gun-dummy-c)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) (process-spawn part-tracker :init part-tracker-init @@ -2642,7 +2683,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-c-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-c-exploder-params* :to obj ) @@ -2651,17 +2692,18 @@ (none) ) -(defmethod gun-dummy-method-32 gun-dummy-big ((obj gun-dummy-big)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-big ((obj gun-dummy-big)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) (process-spawn part-tracker :init part-tracker-init @@ -2677,7 +2719,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-big-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-big-exploder-params* :to obj ) @@ -2686,17 +2728,18 @@ (none) ) -(defmethod gun-dummy-method-32 gun-dummy-gold ((obj gun-dummy-gold)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-gold ((obj gun-dummy-gold)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-bonus") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) (process-spawn part-tracker :init part-tracker-init @@ -2712,7 +2755,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-gold-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-gold-exploder-params* :to obj ) @@ -2721,17 +2764,18 @@ (none) ) -(defmethod gun-dummy-method-32 gun-dummy-peace ((obj gun-dummy-peace)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-peace ((obj gun-dummy-peace)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) (process-spawn part-tracker :init part-tracker-init @@ -2747,7 +2791,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-gold-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-peace-exploder-params* :to obj ) @@ -2756,19 +2800,20 @@ (none) ) -(defmethod gun-dummy-method-32 gun-cit-a ((obj gun-cit-a)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-cit-a ((obj gun-cit-a)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) - (set! (-> s5-1 fountain-rand-transv-hi x) 4096.0) - (set! (-> s5-1 fountain-rand-transv-hi y) 122880.0) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) + (set! (-> exploder-tuning fountain-rand-transv-hi x) 4096.0) + (set! (-> exploder-tuning fountain-rand-transv-hi y) 122880.0) (process-spawn part-tracker :init part-tracker-init @@ -2784,7 +2829,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-cit-a-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-cit-a-exploder-params* :to obj ) @@ -2793,19 +2838,20 @@ (none) ) -(defmethod gun-dummy-method-32 gun-cit-b ((obj gun-cit-b)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-cit-b ((obj gun-cit-b)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) - (set! (-> s5-1 fountain-rand-transv-hi x) 4096.0) - (set! (-> s5-1 fountain-rand-transv-hi y) 122880.0) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) + (set! (-> exploder-tuning fountain-rand-transv-hi x) 4096.0) + (set! (-> exploder-tuning fountain-rand-transv-hi y) 122880.0) (process-spawn part-tracker :init part-tracker-init @@ -2821,7 +2867,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-cit-b-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-cit-b-exploder-params* :to obj ) @@ -2830,19 +2876,20 @@ (none) ) -(defmethod gun-dummy-method-32 gun-cit-c ((obj gun-cit-c)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-cit-c ((obj gun-cit-c)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) - (set! (-> s5-1 fountain-rand-transv-hi x) 4096.0) - (set! (-> s5-1 fountain-rand-transv-hi y) 122880.0) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) + (set! (-> exploder-tuning fountain-rand-transv-hi x) 4096.0) + (set! (-> exploder-tuning fountain-rand-transv-hi y) 122880.0) (process-spawn part-tracker :init part-tracker-init @@ -2858,7 +2905,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-cit-c-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-cit-c-exploder-params* :to obj ) @@ -2867,19 +2914,20 @@ (none) ) -(defmethod gun-dummy-method-32 gun-cit-d ((obj gun-cit-d)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-cit-d ((obj gun-cit-d)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) - (set! (-> s5-1 fountain-rand-transv-hi x) 4096.0) - (set! (-> s5-1 fountain-rand-transv-hi y) 122880.0) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) + (set! (-> exploder-tuning fountain-rand-transv-hi x) 4096.0) + (set! (-> exploder-tuning fountain-rand-transv-hi y) 122880.0) (process-spawn part-tracker :init part-tracker-init @@ -2895,7 +2943,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-cit-d-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-cit-d-exploder-params* :to obj ) @@ -2905,15 +2953,16 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -2922,15 +2971,16 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-a-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-a-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-a]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-a" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -2941,15 +2991,16 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-b-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-b-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-b]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-b" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -2960,15 +3011,16 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-c-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-c-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-c]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-c" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -2979,15 +3031,16 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-big-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-big-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-big]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-big" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -2998,15 +3051,16 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-gold-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-gold-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-gold]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-gold" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3017,15 +3071,16 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-peace-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-peace-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-peace]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-peace" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3036,15 +3091,16 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior gun-cit-a-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-cit-a-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-cit-a]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-cit-a" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3055,15 +3111,16 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior gun-cit-b-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-cit-b-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-cit-b]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-cit-b" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3074,15 +3131,16 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior gun-cit-c-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-cit-c-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-cit-c]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-cit-c" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3093,15 +3151,16 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior gun-cit-d-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-cit-d-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-cit-d]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-cit-d" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) diff --git a/goal_src/jak2/levels/gungame/gungame-data.gc b/goal_src/jak2/levels/gungame/gungame-data.gc index ffb727f9cd..dcb4907c2b 100644 --- a/goal_src/jak2/levels/gungame/gungame-data.gc +++ b/goal_src/jak2/levels/gungame/gungame-data.gc @@ -10,13 +10,16 @@ ;; DECOMP BEGINS (deftype gungame-crate (structure) - ((pos vector :inline :offset-assert 0) - (pos-x float :offset 0) - (pos-y float :offset 4) - (pos-z float :offset 8) - (angle float :offset 12) - (ammo int32 :offset-assert 16) - (num uint32 :offset-assert 20) + "Describes the contents and position of the crates in the gungame +`num` is the amount of TOTAL ammo to spawn (not pickups) +For example `20` would mean 4 red gun pickups, or 2 yellow gun pickups" + ((pos vector :inline :offset-assert 0) + (pos-x float :offset 0) + (pos-y float :offset 4) + (pos-z float :offset 8) + (angle float :offset 12) + (ammo pickup-type :offset-assert 16) + (num uint32 :offset-assert 20) ) :method-count-assert 9 :size-assert #x18 @@ -24,155 +27,390 @@ ) -(define *entrance-gungame-crates-pos* - (new 'static 'boxed-array :type gungame-crate - (new 'static 'gungame-crate :pos (new 'static 'vector :x 303104.0 :z 129024.0 :w -16384.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 303104.0 :z 141312.0 :w -16384.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 303104.0 :z 153600.0 :w -16384.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 303104.0 :z 165888.0 :w -16384.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 303104.0 :z 178176.0 :w -16384.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 245760.0 :z 120832.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 258048.0 :z 120832.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 270336.0 :z 120832.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 282624.0 :z 120832.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 294912.0 :z 120832.0) :ammo 33 :num #x14) - ) - ) +(define *entrance-gungame-crates-pos* (new 'static 'boxed-array :type gungame-crate + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 303104.0 :z 129024.0 :w -16384.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 303104.0 :z 141312.0 :w -16384.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 303104.0 :z 153600.0 :w -16384.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 303104.0 :z 165888.0 :w -16384.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 303104.0 :z 178176.0 :w -16384.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 245760.0 :z 120832.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 258048.0 :z 120832.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 270336.0 :z 120832.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 282624.0 :z 120832.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 294912.0 :z 120832.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + ) + ) -(define *gungame-red-crates-pos* - (new 'static 'boxed-array :type gungame-crate - (new 'static 'gungame-crate :pos (new 'static 'vector :x 184320.0 :z 81920.0 :w -16384.0) :ammo 14 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 196608.0 :z 81920.0 :w 7281.778) :ammo 14 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 192512.0 :z 73728.0 :w 14563.556) :ammo 14 :num #x14) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -92160.0 :z -126976.0 :w -16384.0) - :ammo 14 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -92160.0 :z -114688.0 :w -16384.0) - :ammo 14 - :num #x14 - ) - ) - ) +(define *gungame-red-crates-pos* (new 'static 'boxed-array :type gungame-crate + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 184320.0 :z 81920.0 :w -16384.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 196608.0 :z 81920.0 :w 7281.778) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 192512.0 :z 73728.0 :w 14563.556) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -92160.0 :z -126976.0 :w -16384.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -92160.0 :z -114688.0 :w -16384.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + ) + ) -(define *gungame-yellow-crates-pos* - (new 'static 'boxed-array :type gungame-crate - (new 'static 'gungame-crate - :pos (new 'static 'vector :x 131072.0 :z 172032.0 :w -20024.889) - :ammo 13 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x 120832.0 :z 163840.0 :w -23665.777) - :ammo 13 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x 131072.0 :z 155648.0 :w -25486.223) - :ammo 13 - :num #x14 - ) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 169574.4 :z -149094.4) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 182272.0 :z -149094.4) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 18841.6 :z -99942.4 :w 16384.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -142131.2 :z -76595.2 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -154419.2 :z -76595.2 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -166707.2 :z -76595.2 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -178995.2 :z -76595.2 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -147046.4 :z 132300.8 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -134758.4 :z 132300.8 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -122470.4 :z 132300.8 :w 32768.0) :ammo 13 :num #x14) - ) - ) +(define *gungame-yellow-crates-pos* (new 'static 'boxed-array :type gungame-crate + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 131072.0 :z 172032.0 :w -20024.889) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 120832.0 :z 163840.0 :w -23665.777) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 131072.0 :z 155648.0 :w -25486.223) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 169574.4 :z -149094.4) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 182272.0 :z -149094.4) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 18841.6 :z -99942.4 :w 16384.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -142131.2 :z -76595.2 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -154419.2 :z -76595.2 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -166707.2 :z -76595.2 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -178995.2 :z -76595.2 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -147046.4 :z 132300.8 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -134758.4 :z 132300.8 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -122470.4 :z 132300.8 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + ) + ) -(define *gungame-blue-crates-pos* - (new 'static 'boxed-array :type gungame-crate - (new 'static 'gungame-crate :pos (new 'static 'vector :x 73728.0 :z 163840.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 73728.0 :z 151552.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 73728.0 :z 139264.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 73728.0 :z 126976.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -71680.0 :z 163840.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -71680.0 :z 151552.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -71680.0 :z 139264.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -71680.0 :z 126976.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -131072.0 :z 102400.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -118784.0 :z 102400.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -180224.0 :z 36864.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -126976.0 :z 36864.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -172032.0 :z -24576.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -159744.0 :z -24576.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -98304.0 :z -147456.0 :w -16384.0) - :ammo 15 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -98304.0 :z -135168.0 :w -16384.0) - :ammo 15 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -98304.0 :z -122880.0 :w -16384.0) - :ammo 15 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -98304.0 :z -110592.0 :w -16384.0) - :ammo 15 - :num #x14 - ) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 12288.0 :z -131072.0 :w -16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 12288.0 :z -118784.0 :w -16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 12288.0 :z -106496.0 :w -16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 176128.0 :z -147456.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 188416.0 :z -147456.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 200704.0 :z -147456.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 212992.0 :z -147456.0) :ammo 15 :num #x14) - ) - ) +(define *gungame-blue-crates-pos* (new 'static 'boxed-array :type gungame-crate + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 73728.0 :z 163840.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 73728.0 :z 151552.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 73728.0 :z 139264.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 73728.0 :z 126976.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -71680.0 :z 163840.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -71680.0 :z 151552.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -71680.0 :z 139264.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -71680.0 :z 126976.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -131072.0 :z 102400.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -118784.0 :z 102400.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -180224.0 :z 36864.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -126976.0 :z 36864.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -172032.0 :z -24576.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -159744.0 :z -24576.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -98304.0 :z -147456.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -98304.0 :z -135168.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -98304.0 :z -122880.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -98304.0 :z -110592.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 12288.0 :z -131072.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 12288.0 :z -118784.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 12288.0 :z -106496.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 176128.0 :z -147456.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 188416.0 :z -147456.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 200704.0 :z -147456.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 212992.0 :z -147456.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + ) + ) -(define *gungame-peace-crates-pos* - (new 'static 'boxed-array :type gungame-crate - (new 'static 'gungame-crate :pos (new 'static 'vector :x 196608.0 :z 77824.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 208896.0 :z 77824.0) :ammo 13 :num #x28) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 221184.0 :z 77824.0) :ammo 14 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 233472.0 :z 77824.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 172032.0 :z -147456.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 184320.0 :z -147456.0) :ammo 13 :num #x28) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 196608.0 :z -147456.0) :ammo 14 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 208896.0 :z -147456.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -90112.0 :z -102400.0 :w 16384.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -90112.0 :z -114688.0 :w 16384.0) :ammo 13 :num #x28) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -90112.0 :z -126976.0 :w 16384.0) :ammo 14 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -90112.0 :z -139264.0 :w 16384.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -135168.0 :z -28672.0 :w -32768.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -147456.0 :z -28672.0 :w -32768.0) - :ammo 13 - :num #x28 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -159744.0 :z -28672.0 :w -32768.0) - :ammo 14 - :num #x14 - ) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -172032.0 :z -28672.0 :w -32768.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -135168.0 :z 133120.0 :w -32768.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -147456.0 :z 133120.0 :w -32768.0) - :ammo 13 - :num #x28 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -159744.0 :z 133120.0 :w -32768.0) - :ammo 14 - :num #x14 - ) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -172032.0 :z 133120.0 :w -32768.0) :ammo 16 :num #x5) - ) - ) +(define *gungame-peace-crates-pos* (new 'static 'boxed-array :type gungame-crate + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 196608.0 :z 77824.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 208896.0 :z 77824.0) + :ammo (pickup-type ammo-yellow) + :num #x28 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 221184.0 :z 77824.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 233472.0 :z 77824.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 172032.0 :z -147456.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 184320.0 :z -147456.0) + :ammo (pickup-type ammo-yellow) + :num #x28 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 196608.0 :z -147456.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 208896.0 :z -147456.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -90112.0 :z -102400.0 :w 16384.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -90112.0 :z -114688.0 :w 16384.0) + :ammo (pickup-type ammo-yellow) + :num #x28 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -90112.0 :z -126976.0 :w 16384.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -90112.0 :z -139264.0 :w 16384.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -135168.0 :z -28672.0 :w -32768.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -147456.0 :z -28672.0 :w -32768.0) + :ammo (pickup-type ammo-yellow) + :num #x28 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -159744.0 :z -28672.0 :w -32768.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -172032.0 :z -28672.0 :w -32768.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -135168.0 :z 133120.0 :w -32768.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -147456.0 :z 133120.0 :w -32768.0) + :ammo (pickup-type ammo-yellow) + :num #x28 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -159744.0 :z 133120.0 :w -32768.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -172032.0 :z 133120.0 :w -32768.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + ) + ) (define *red-training-path-global-info* (new 'static 'boxed-array :type tpath-info @@ -181,51 +419,25 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) (new 'static 'tpath-info :num #x5 :score 100 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 0) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -235,44 +447,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -283,44 +469,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -328,28 +488,15 @@ :num #x19 :ref-time-num 20 :score 100 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 20) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -358,26 +505,13 @@ :num #x1e :ref-time-num 20 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -386,65 +520,25 @@ :num #x28 :ref-time-num 30 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -453,65 +547,25 @@ :num #x32 :ref-time-num 40 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -520,65 +574,25 @@ :num #x37 :ref-time-num 40 :score #x1f4 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -587,47 +601,21 @@ :num #x3c :ref-time-num 50 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -635,49 +623,23 @@ :num #x41 :ref-time-num 60 :score 100 - :flags #x18 + :flags (tpath-info-flags tpath-info-flags-3 start-on-rand-anim) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 60) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -686,47 +648,21 @@ :num #x46 :ref-time-num 60 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -735,36 +671,15 @@ :num #x50 :ref-time-num 70 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -773,34 +688,15 @@ :num #x5a :ref-time-num 70 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -811,31 +707,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x17) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -845,31 +722,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x16) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -877,29 +735,15 @@ :num #x73 :ref-time-num 100 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 100) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -908,34 +752,15 @@ :num #x78 :ref-time-num #x6e :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x15) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -945,31 +770,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -980,27 +786,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1008,30 +798,14 @@ :num #xa0 :ref-time-num #x96 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1042,43 +816,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1087,26 +836,13 @@ :num #xb4 :ref-time-num #xaa :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1115,46 +851,21 @@ :num #xbe :ref-time-num #xb4 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1163,48 +874,21 @@ :num #xc8 :ref-time-num #xbe :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1212,48 +896,21 @@ :num #xd2 :ref-time-num #xc8 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1264,23 +921,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1288,29 +932,15 @@ :num #xe1 :ref-time-num #xdc :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #xdc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xc) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1319,26 +949,13 @@ :num #xe6 :ref-time-num #xdc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1347,26 +964,13 @@ :num #xf0 :ref-time-num #xe6 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1377,23 +981,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xc) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1403,23 +994,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xd) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1430,23 +1008,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1456,23 +1021,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1481,26 +1033,13 @@ :num #x122 :ref-time-num #x118 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1511,23 +1050,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1538,23 +1064,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1565,23 +1078,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1590,26 +1090,13 @@ :num #x14a :ref-time-num #x140 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1618,26 +1105,13 @@ :num #x154 :ref-time-num #x14a :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1648,23 +1122,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1672,28 +1133,15 @@ :num #x163 :ref-time-num #x15e :score 100 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x15e) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1704,23 +1152,10 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1731,23 +1166,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.9 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.9 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1756,27 +1178,13 @@ :num #x19a :ref-time-num #x190 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.3 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.3 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1787,23 +1195,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1813,24 +1208,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1839,26 +1220,13 @@ :num #x1b8 :ref-time-num #x1ae :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1868,24 +1236,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1896,23 +1250,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1920,27 +1261,13 @@ :num #x1d6 :ref-time-num #x1cc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1951,23 +1278,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1977,24 +1291,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2003,26 +1303,13 @@ :num #x1f4 :ref-time-num #x1ea :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2032,24 +1319,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2060,23 +1333,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2086,24 +1346,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2112,26 +1358,13 @@ :num #x21c :ref-time-num #x212 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2141,24 +1374,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2169,23 +1388,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2194,28 +1400,15 @@ :num #x235 :ref-time-num #x230 :score 100 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x230) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2223,27 +1416,13 @@ :num #x23a :ref-time-num #x230 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2252,35 +1431,15 @@ :num #x244 :ref-time-num #x23a :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2288,29 +1447,15 @@ :num #x249 :ref-time-num #x244 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x244) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2321,32 +1466,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2356,32 +1481,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2392,31 +1497,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2427,31 +1513,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2460,98 +1527,35 @@ :num #x262 :ref-time-num #x258 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xb2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xb2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2562,33 +1566,12 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2596,28 +1579,15 @@ :num #x269 :ref-time-num #x267 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x267) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2625,28 +1595,15 @@ :num #x26a :ref-time-num #x269 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x269) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2655,98 +1612,35 @@ :num #x26c :ref-time-num #x262 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xb2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xb2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2755,98 +1649,35 @@ :num #x276 :ref-time-num #x26c :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xb2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xb2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2857,64 +1688,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3f) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x41) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2923,67 +1712,25 @@ :num #x27d :ref-time-num #x276 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x41) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3f) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2994,32 +1741,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x40) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3028,34 +1755,15 @@ :num #x28a :ref-time-num #x280 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3065,31 +1773,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3097,35 +1786,15 @@ :num #x29e :ref-time-num #x294 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3136,62 +1805,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3200,65 +1829,25 @@ :num #x2a2 :ref-time-num #x2a0 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3267,65 +1856,25 @@ :num #x2a4 :ref-time-num #x2a2 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3334,65 +1883,25 @@ :num #x2a6 :ref-time-num #x2a2 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3400,48 +1909,23 @@ :num #x2a7 :ref-time-num #x2a6 :score 100 - :flags #x18 + :flags (tpath-info-flags tpath-info-flags-3 start-on-rand-anim) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2a6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3450,64 +1934,25 @@ :num #x2a8 :ref-time-num #x2a7 :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3516,30 +1961,14 @@ :num #x2bc :ref-time-num #x2a8 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3550,27 +1979,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3579,30 +1992,14 @@ :num #x2c0 :ref-time-num #x2bc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3611,30 +2008,14 @@ :num #x2c2 :ref-time-num #x2bc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3645,27 +2026,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3673,32 +2038,16 @@ :num #x2c5 :ref-time-num #x2c4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 0.7 :list (new 'static 'boxed-array :type int32 #x2c4) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3709,32 +2058,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3743,35 +2072,15 @@ :num #x2d0 :ref-time-num #x2c6 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3779,35 +2088,15 @@ :num #x2da :ref-time-num #x2d0 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3816,36 +2105,17 @@ :num #x2dd :ref-time-num #x2c6 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x2c6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3856,62 +2126,22 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x38) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3922,23 +2152,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3946,38 +2163,17 @@ :num #x2e9 :ref-time-num #x2e4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2e4) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3988,23 +2184,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4014,23 +2197,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4038,51 +2208,23 @@ :num #x2fd :ref-time-num #x2f8 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2f8) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4093,23 +2235,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4120,23 +2249,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4147,23 +2263,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4174,23 +2277,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4201,23 +2291,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4228,23 +2305,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4255,23 +2319,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4282,23 +2333,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4309,23 +2347,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4336,23 +2361,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4363,23 +2375,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4390,44 +2389,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4438,44 +2411,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4483,49 +2430,23 @@ :num #x37f :ref-time-num #x37a :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x37a) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4536,44 +2457,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4584,44 +2479,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4629,49 +2498,23 @@ :num #x393 :ref-time-num #x38e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 4.5 :list (new 'static 'boxed-array :type int32 #x38e) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4680,47 +2523,21 @@ :num #x398 :ref-time-num #x370 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4731,44 +2548,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4777,47 +2568,21 @@ :num #x3ac :ref-time-num #x370 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4826,47 +2591,21 @@ :num #x3b6 :ref-time-num #x370 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4877,44 +2616,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4925,44 +2638,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4973,46 +2660,18 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5020,51 +2679,23 @@ :num #x3d7 :ref-time-num #x3d4 :score #x1f4 - :flags #x18 + :flags (tpath-info-flags tpath-info-flags-3 start-on-rand-anim) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x3d4) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5073,47 +2704,21 @@ :num #x3d9 :ref-time-num #x370 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5124,44 +2729,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5172,44 +2751,18 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5218,47 +2771,21 @@ :num #x3ea :ref-time-num #x3e8 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5267,47 +2794,21 @@ :num #x3ec :ref-time-num #x3ea :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5316,49 +2817,21 @@ :num #x3ee :ref-time-num #x3ec :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5369,45 +2842,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5418,45 +2864,18 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5465,51 +2884,23 @@ :num #x401 :ref-time-num #x3f2 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3f2) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5517,51 +2908,23 @@ :num #x406 :ref-time-num #x3fc :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 0.8 :list (new 'static 'boxed-array :type int32 #x3fc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5575,44 +2938,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5620,47 +2957,21 @@ :s-time 1.0 :num #xa :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5669,47 +2980,21 @@ :num #x14 :ref-time-num 10 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5717,32 +3002,16 @@ :num #x19 :ref-time-num 20 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 0.5 :list (new 'static 'boxed-array :type int32 20) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5751,47 +3020,21 @@ :num #x1e :ref-time-num 20 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5799,28 +3042,15 @@ :num #x20 :ref-time-num 30 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 0.5 :list (new 'static 'boxed-array :type int32 30) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5829,47 +3059,21 @@ :num #x23 :ref-time-num 30 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5878,47 +3082,21 @@ :num #x25 :ref-time-num 35 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5929,44 +3107,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5975,47 +3127,21 @@ :num #x32 :ref-time-num 40 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6026,44 +3152,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x1f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x5f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6071,32 +3171,16 @@ :num #x41 :ref-time-num 60 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 60) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6105,47 +3189,21 @@ :num #x46 :ref-time-num 60 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x5f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x1f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6156,31 +3214,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6188,36 +3227,17 @@ :num #x55 :ref-time-num 80 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 80) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6227,31 +3247,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6259,36 +3260,17 @@ :num #x5f :ref-time-num 90 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 90) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6299,44 +3281,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6344,47 +3300,21 @@ :num #x6e :ref-time-num 100 :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6395,27 +3325,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6426,27 +3340,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6457,27 +3355,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6488,27 +3370,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6519,27 +3385,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6550,27 +3400,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6578,27 +3412,15 @@ :num #x88 :ref-time-num #x87 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x87) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6609,27 +3431,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.9 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.9 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6640,27 +3446,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.9 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.9 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6671,31 +3461,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x38) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6703,36 +3474,17 @@ :num #x91 :ref-time-num #x8c :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x8c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x39) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6743,32 +3495,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6776,38 +3508,17 @@ :num #x95 :ref-time-num #x93 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x93) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x30) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6818,31 +3529,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6850,36 +3542,17 @@ :num #x9b :ref-time-num #x96 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x96) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6890,32 +3563,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6925,31 +3578,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6957,32 +3591,16 @@ :num #xaf :ref-time-num #xaa :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #xaa) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x3b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6993,32 +3611,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7026,38 +3624,17 @@ :num #xb9 :ref-time-num #xb4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #xb4) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x43) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7067,31 +3644,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7099,37 +3657,17 @@ :num #xc3 :ref-time-num #xbe :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #xbe) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7140,32 +3678,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x40) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7174,65 +3692,25 @@ :num #xcc :ref-time-num #xc3 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7241,65 +3719,25 @@ :num #xce :ref-time-num #xcc :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7309,31 +3747,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7344,32 +3763,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7380,31 +3779,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7415,31 +3795,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7447,35 +3808,15 @@ :num #xdf :ref-time-num #xde :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #xbf - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #xbf :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7484,35 +3825,15 @@ :num #xe0 :ref-time-num #xdf :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #xa5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #xa5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7520,37 +3841,17 @@ :num #xe1 :ref-time-num #xe0 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 #xe0) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x40) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7561,31 +3862,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7594,35 +3876,15 @@ :num #xe8 :ref-time-num #xe7 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7633,32 +3895,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7669,32 +3911,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7703,35 +3925,15 @@ :num #xeb :ref-time-num #xea :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7742,32 +3944,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7775,38 +3957,17 @@ :num #xee :ref-time-num #xec :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #xec) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xbf - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xbf :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7817,27 +3978,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7846,35 +3991,15 @@ :num #xfa :ref-time-num #xf0 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #xbf - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #xbf :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7883,35 +4008,15 @@ :num #x104 :ref-time-num #xfa :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7920,35 +4025,15 @@ :num #x10e :ref-time-num #x104 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7956,37 +4041,17 @@ :num #x113 :ref-time-num #x10e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x10e) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7995,35 +4060,15 @@ :num #x118 :ref-time-num #x113 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.8 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8032,35 +4077,15 @@ :num #x122 :ref-time-num #x118 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8071,32 +4096,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8104,36 +4109,17 @@ :num #x131 :ref-time-num #x12c :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x12c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8141,36 +4127,17 @@ :num #x132 :ref-time-num #x131 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x131) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8178,36 +4145,17 @@ :num #x133 :ref-time-num #x132 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x132) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8218,31 +4166,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8250,34 +4179,15 @@ :num #x140 :ref-time-num #x136 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8285,38 +4195,17 @@ :num #x145 :ref-time-num #x140 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x140) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8325,26 +4214,13 @@ :num #x14a :ref-time-num #x140 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8355,23 +4231,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8382,44 +4245,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8430,23 +4267,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8457,23 +4281,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8484,74 +4295,21 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 17 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8559,70 +4317,24 @@ :num #x163 :ref-time-num #x162 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x162) :anim1 (new 'static 'inline-array tpath-control-frame 15 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8633,73 +4345,21 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 17 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8710,73 +4370,21 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 17 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8785,81 +4393,25 @@ :num #x166 :ref-time-num #x165 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 18 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8868,47 +4420,21 @@ :num #x167 :ref-time-num #x166 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8919,61 +4445,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 14 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8983,60 +4466,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 14 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9044,70 +4485,24 @@ :num #x16a :ref-time-num #x169 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x169) :anim1 (new 'static 'inline-array tpath-control-frame 15 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9118,23 +4513,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9143,26 +4525,13 @@ :num #x16c :ref-time-num #x16b :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9173,44 +4542,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9221,44 +4564,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9269,23 +4586,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9294,26 +4598,13 @@ :num #x177 :ref-time-num #x172 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9324,23 +4615,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9349,47 +4627,21 @@ :num #x17e :ref-time-num #x17c :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9398,47 +4650,21 @@ :num #x17f :ref-time-num #x17e :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9447,47 +4673,21 @@ :num #x180 :ref-time-num #x17f :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9496,26 +4696,13 @@ :num #x181 :ref-time-num #x180 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9526,23 +4713,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9551,26 +4725,13 @@ :num #x18b :ref-time-num #x186 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9579,26 +4740,13 @@ :num #x190 :ref-time-num #x18b :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9609,23 +4757,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9634,26 +4769,13 @@ :num #x19a :ref-time-num #x195 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9664,23 +4786,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9691,23 +4800,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9716,26 +4812,13 @@ :num #x1a9 :ref-time-num #x1a4 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9746,23 +4829,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9771,47 +4841,21 @@ :num #x1af :ref-time-num #x1ae :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9820,47 +4864,21 @@ :num #x1b0 :ref-time-num #x1af :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9869,47 +4887,21 @@ :num #x1b1 :ref-time-num #x1b0 :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9920,44 +4912,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9965,49 +4931,23 @@ :num #x1b3 :ref-time-num #x1b2 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x1b2) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10018,23 +4958,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10043,26 +4970,13 @@ :num #x1b8 :ref-time-num #x1b4 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10071,26 +4985,13 @@ :num #x1bd :ref-time-num #x1b8 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10101,23 +5002,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10128,23 +5016,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10153,26 +5028,13 @@ :num #x1ca :ref-time-num #x1c7 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10183,23 +5045,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10208,26 +5057,13 @@ :num #x1cf :ref-time-num #x1cc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10238,23 +5074,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10262,49 +5085,23 @@ :num #x1d3 :ref-time-num #x1d2 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.7 :list (new 'static 'boxed-array :type int32 #x1d2) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10315,60 +5112,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x16) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10379,60 +5138,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x13) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x15) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10441,47 +5162,21 @@ :num #x1e5 :ref-time-num #x1e0 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10492,31 +5187,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x17) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10527,60 +5203,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x16) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10588,49 +5226,23 @@ :num #x1f9 :ref-time-num #x1f4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x1f4) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10641,60 +5253,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x13) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x15) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10702,58 +5276,25 @@ :num #x203 :ref-time-num #x1fe :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x1fe) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10762,56 +5303,23 @@ :num #x206 :ref-time-num #x1fe :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10821,31 +5329,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x17) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10856,31 +5345,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10891,31 +5361,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x13) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10923,28 +5374,15 @@ :num #x226 :ref-time-num #x21c :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x21c) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10953,28 +5391,15 @@ :num #x230 :ref-time-num #x21c :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 #x21c) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10983,28 +5408,15 @@ :num #x23a :ref-time-num #x21c :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 4.0 :list (new 'static 'boxed-array :type int32 #x21c) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11015,65 +5427,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11084,65 +5457,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11153,65 +5487,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11222,65 +5517,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11289,68 +5545,29 @@ :num #xd6b :ref-time-num #xd66 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11361,65 +5578,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11428,68 +5606,29 @@ :num #xd75 :ref-time-num #xd70 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11498,68 +5637,29 @@ :num #xd7a :ref-time-num #xd75 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11570,65 +5670,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11639,65 +5700,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11706,68 +5728,29 @@ :num #xd89 :ref-time-num #xd84 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11778,65 +5761,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11847,65 +5791,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11914,68 +5819,29 @@ :num #xd98 :ref-time-num #xd93 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11986,65 +5852,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12055,65 +5882,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12124,65 +5912,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12191,68 +5940,29 @@ :num #xda4 :ref-time-num #xda2 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12263,23 +5973,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12288,26 +5985,13 @@ :num #xdb6 :ref-time-num #xdac :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12316,56 +6000,23 @@ :num #xdbb :ref-time-num #xdb6 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x5f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x1f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12373,65 +6024,25 @@ :num #xdbd :ref-time-num #xdbb :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12440,65 +6051,25 @@ :num #xdbe :ref-time-num #xdbd :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x5f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x1f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12506,74 +6077,27 @@ :num #xdbf :ref-time-num #xdbe :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 9 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 9 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x1f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12582,47 +6106,21 @@ :num #xdc0 :ref-time-num #xdbf :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12633,44 +6131,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12679,47 +6151,21 @@ :num #xdcf :ref-time-num #xdca :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12730,44 +6176,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12776,47 +6196,21 @@ :num #xdde :ref-time-num #xdd4 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12827,44 +6221,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12873,47 +6241,21 @@ :num #xdf2 :ref-time-num #xde8 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12922,47 +6264,21 @@ :num #xdfc :ref-time-num #xdf2 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12971,47 +6287,21 @@ :num #xe06 :ref-time-num #xdfc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13022,44 +6312,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.65 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.65 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.65 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.65 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13068,48 +6332,21 @@ :num #xe15 :ref-time-num #xe10 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.69 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.69 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.69 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.69 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13118,28 +6355,15 @@ :num #xe18 :ref-time-num #xe15 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 5.5 :list (new 'static 'boxed-array :type int32 #xe15) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13148,26 +6372,13 @@ :num #xe19 :ref-time-num #xe18 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13176,47 +6387,21 @@ :num #xe1a :ref-time-num #xe19 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13225,47 +6410,21 @@ :num #xe24 :ref-time-num #xe1a :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13276,44 +6435,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13322,47 +6455,21 @@ :num #xe33 :ref-time-num #xe2e :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13373,23 +6480,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13399,23 +6493,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13425,23 +6506,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13451,23 +6519,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13477,23 +6532,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13503,44 +6545,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13548,47 +6564,21 @@ :num #xea6 :ref-time-num #xe6a :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13596,47 +6586,21 @@ :num #xeb0 :ref-time-num #xe6a :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13644,47 +6608,21 @@ :num #xeba :ref-time-num #xe6a :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13694,23 +6632,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13718,26 +6643,13 @@ :num #xece :ref-time-num #xe6a :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13745,26 +6657,13 @@ :num #xed8 :ref-time-num #xe6a :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13773,94 +6672,28 @@ :num #xee2 :ref-time-num #xed8 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 21 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13870,91 +6703,25 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 21 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13968,23 +6735,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13993,23 +6747,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14018,23 +6759,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14043,23 +6771,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14068,23 +6783,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14093,23 +6795,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14118,23 +6807,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14143,23 +6819,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14168,23 +6831,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14193,23 +6843,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14218,23 +6855,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14243,23 +6867,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14270,53 +6881,20 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14324,28 +6902,15 @@ :num #x19 :ref-time-num 20 :score 100 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 20) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14356,23 +6921,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14383,57 +6935,21 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14442,67 +6958,25 @@ :num #x32 :ref-time-num 40 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14511,65 +6985,25 @@ :num #x37 :ref-time-num 40 :score #x1f4 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14578,47 +7012,21 @@ :num #x3c :ref-time-num 50 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14626,49 +7034,23 @@ :num #x41 :ref-time-num 60 :score 100 - :flags #x18 + :flags (tpath-info-flags tpath-info-flags-3 start-on-rand-anim) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 60) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14677,47 +7059,21 @@ :num #x46 :ref-time-num 60 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14726,56 +7082,23 @@ :num #x4b :ref-time-num 70 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14786,33 +7109,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14823,31 +7125,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14858,32 +7141,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x17) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14893,32 +7156,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x16) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14926,29 +7169,15 @@ :num #x73 :ref-time-num 100 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 100) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14959,31 +7188,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x15) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14993,32 +7203,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15029,23 +7219,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15054,26 +7231,13 @@ :num #xa0 :ref-time-num #x96 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15084,23 +7248,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15109,26 +7260,13 @@ :num #xa2 :ref-time-num #xa1 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15139,23 +7277,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15164,26 +7289,13 @@ :num #xa4 :ref-time-num #xa3 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15194,23 +7306,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15219,26 +7318,13 @@ :num #xa6 :ref-time-num #xa5 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15249,23 +7335,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15274,26 +7347,13 @@ :num #xa8 :ref-time-num #xa7 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15304,52 +7364,20 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15360,31 +7388,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x13) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15395,31 +7404,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15428,48 +7418,21 @@ :num #xc8 :ref-time-num #xbe :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15478,48 +7441,21 @@ :num #xcb :ref-time-num #xc8 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15528,48 +7464,21 @@ :num #xcd :ref-time-num #xc8 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15578,48 +7487,21 @@ :num #xcf :ref-time-num #xcd :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15628,48 +7510,21 @@ :num #xd1 :ref-time-num #xcf :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15678,48 +7533,21 @@ :num #xd3 :ref-time-num #xcf :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15728,48 +7556,21 @@ :num #xd5 :ref-time-num #xd3 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15778,48 +7579,21 @@ :num #xd7 :ref-time-num #xd5 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15828,48 +7602,21 @@ :num #xd9 :ref-time-num #xd7 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15878,48 +7625,21 @@ :num #xdb :ref-time-num #xd9 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15930,23 +7650,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15958,23 +7665,10 @@ :list (new 'static 'boxed-array :type int32 #xdc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15985,23 +7679,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16012,23 +7693,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xc) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16039,23 +7707,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16067,23 +7722,10 @@ :list (new 'static 'boxed-array :type int32 #xdc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16094,23 +7736,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16121,23 +7750,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xc) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16148,23 +7764,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16176,23 +7779,10 @@ :list (new 'static 'boxed-array :type int32 #xdc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16203,23 +7793,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16231,22 +7808,10 @@ :list (new 'static 'boxed-array :type int32 #xdc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16257,34 +7822,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x48) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16294,34 +7837,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16330,37 +7851,15 @@ :num #x122 :ref-time-num #x118 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16371,23 +7870,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16398,23 +7884,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16425,23 +7898,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16450,35 +7910,15 @@ :num #x14a :ref-time-num #x140 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16487,35 +7927,15 @@ :num #x154 :ref-time-num #x14a :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16526,32 +7946,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16559,42 +7959,18 @@ :num #x163 :ref-time-num #x15e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x15e) :anim1 (new 'static 'inline-array tpath-control-frame 9 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.4 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.4 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16605,37 +7981,13 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 9 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16646,23 +7998,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.9 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.9 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16673,24 +8012,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16701,23 +8026,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16727,24 +8039,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16755,23 +8053,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16782,23 +8067,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16809,28 +8081,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16840,34 +8095,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16878,24 +8111,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16904,26 +8123,13 @@ :num #x1f4 :ref-time-num #x1ea :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16933,23 +8139,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16960,23 +8153,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16987,23 +8167,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17012,30 +8179,14 @@ :num #x21c :ref-time-num #x212 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17046,23 +8197,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17073,23 +8211,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17100,23 +8225,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17127,23 +8239,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17154,23 +8253,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17181,23 +8267,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17208,23 +8281,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17235,23 +8295,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17262,23 +8309,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17289,23 +8323,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17316,23 +8337,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17343,23 +8351,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17370,23 +8365,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17395,35 +8377,15 @@ :num #x244 :ref-time-num #x243 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17431,29 +8393,15 @@ :num #x249 :ref-time-num #x244 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x244) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17464,32 +8412,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17499,32 +8427,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17535,31 +8443,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17570,31 +8459,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17603,95 +8473,35 @@ :num #x262 :ref-time-num #x258 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17702,32 +8512,12 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17735,37 +8525,17 @@ :num #x269 :ref-time-num #x267 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x267) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17773,37 +8543,17 @@ :num #x26a :ref-time-num #x269 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x269) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17812,95 +8562,35 @@ :num #x26c :ref-time-num #x262 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17909,98 +8599,35 @@ :num #x276 :ref-time-num #x26c :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xb2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xb2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18009,35 +8636,15 @@ :num #x27b :ref-time-num #x276 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x40) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18046,34 +8653,15 @@ :num #x27d :ref-time-num #x27b :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3e) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18082,35 +8670,15 @@ :num #x280 :ref-time-num #x27b :score -100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18119,34 +8687,15 @@ :num #x28a :ref-time-num #x27b :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18155,35 +8704,15 @@ :num #x29e :ref-time-num #x28a :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18194,62 +8723,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18258,65 +8747,25 @@ :num #x2a2 :ref-time-num #x2a0 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18325,65 +8774,25 @@ :num #x2a4 :ref-time-num #x2a2 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18392,65 +8801,25 @@ :num #x2a6 :ref-time-num #x2a2 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18458,48 +8827,23 @@ :num #x2a7 :ref-time-num #x2a6 :score 100 - :flags #x18 + :flags (tpath-info-flags tpath-info-flags-3 start-on-rand-anim) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2a6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18508,64 +8852,25 @@ :num #x2a8 :ref-time-num #x2a7 :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18576,27 +8881,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18607,23 +8896,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18632,26 +8908,13 @@ :num #x2c7 :ref-time-num #x2c6 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18660,26 +8923,13 @@ :num #x2c8 :ref-time-num #x2c7 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18690,23 +8940,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18715,26 +8952,13 @@ :num #x2ca :ref-time-num #x2c9 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18743,26 +8967,13 @@ :num #x2cb :ref-time-num #x2ca :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18773,23 +8984,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18798,26 +8996,13 @@ :num #x2cd :ref-time-num #x2cc :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18826,26 +9011,13 @@ :num #x2ce :ref-time-num #x2cd :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18856,23 +9028,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18881,26 +9040,13 @@ :num #x2d0 :ref-time-num #x2cf :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18909,26 +9055,13 @@ :num #x2d1 :ref-time-num #x2d0 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18939,23 +9072,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18966,23 +9086,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18991,26 +9098,13 @@ :num #x2d4 :ref-time-num #x2d3 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19021,23 +9115,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19046,26 +9127,13 @@ :num #x2d6 :ref-time-num #x2d5 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19076,23 +9144,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19103,23 +9158,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19130,23 +9172,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19155,26 +9184,13 @@ :num #x2da :ref-time-num #x2d9 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19185,23 +9201,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19212,23 +9215,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19239,23 +9229,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19266,23 +9243,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19293,23 +9257,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19320,23 +9271,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19347,23 +9285,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19374,23 +9299,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19401,23 +9313,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19428,23 +9327,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19452,38 +9338,17 @@ :num #x2e9 :ref-time-num #x2e4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2e4) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19494,23 +9359,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19520,23 +9372,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19544,51 +9383,23 @@ :num #x2fd :ref-time-num #x2f8 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2f8) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19599,23 +9410,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19626,23 +9424,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19653,23 +9438,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19680,23 +9452,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19707,23 +9466,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19734,23 +9480,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19761,23 +9494,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19788,23 +9508,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19815,23 +9522,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19842,23 +9536,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19869,23 +9550,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19896,44 +9564,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19944,44 +9586,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19992,44 +9608,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20038,49 +9628,23 @@ :num #x384 :ref-time-num #x37f :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x37f) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20091,44 +9655,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20139,44 +9677,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20185,49 +9697,23 @@ :num #x393 :ref-time-num #x38e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x38e) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20239,44 +9725,18 @@ :list (new 'static 'boxed-array :type int32 #x37a) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20285,49 +9745,23 @@ :num #x39d :ref-time-num #x398 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x398) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20338,44 +9772,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20384,49 +9792,23 @@ :num #x3a7 :ref-time-num #x3a2 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3a2) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20437,44 +9819,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20483,49 +9839,23 @@ :num #x3b1 :ref-time-num #x3ac :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3ac) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20536,44 +9866,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20582,49 +9886,23 @@ :num #x3bb :ref-time-num #x3b6 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3b6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20635,44 +9913,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20681,49 +9933,23 @@ :num #x3c5 :ref-time-num #x3c0 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3c0) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20734,44 +9960,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20780,49 +9980,23 @@ :num #x3cf :ref-time-num #x3ca :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3ca) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20833,44 +10007,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20879,49 +10027,23 @@ :num #x3d9 :ref-time-num #x3d4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3d4) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20932,23 +10054,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20959,23 +10068,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20984,28 +10080,15 @@ :num #x3e8 :ref-time-num #x3e3 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3e3) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21016,23 +10099,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21043,23 +10113,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21068,28 +10125,15 @@ :num #x45b :ref-time-num #x3f2 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3f2) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21100,23 +10144,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21127,23 +10158,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21152,28 +10170,15 @@ :num #x46a :ref-time-num #x465 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x465) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21184,23 +10189,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21211,23 +10203,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21236,28 +10215,15 @@ :num #x479 :ref-time-num #x474 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x474) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21268,23 +10234,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21293,28 +10246,15 @@ :num #x483 :ref-time-num #x47e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x47e) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21325,23 +10265,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21350,28 +10277,15 @@ :num #x48d :ref-time-num #x488 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x488) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21385,44 +10299,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21430,47 +10318,21 @@ :s-time 1.0 :num #xa :score #x1f4 - :flags #x50 + :flags (tpath-info-flags start-on-rand-anim tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21479,47 +10341,21 @@ :num #x14 :ref-time-num 10 :score #x1f4 - :flags #x50 + :flags (tpath-info-flags start-on-rand-anim tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21528,47 +10364,21 @@ :num #x1e :ref-time-num 20 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21577,28 +10387,15 @@ :num #x2a :ref-time-num 30 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :bonus-time 0.5 :list (new 'static 'boxed-array :type int32 30) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21607,47 +10404,21 @@ :num #x2d :ref-time-num 42 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21656,47 +10427,21 @@ :num #x32 :ref-time-num 45 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21707,44 +10452,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21753,47 +10472,21 @@ :num #x46 :ref-time-num 60 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21804,44 +10497,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x1f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x5f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21849,32 +10516,16 @@ :num #x5a :ref-time-num 80 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 80) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21883,47 +10534,21 @@ :num #x64 :ref-time-num 80 :score #x1f4 - :flags #x50 + :flags (tpath-info-flags start-on-rand-anim tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x5f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x1f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21934,31 +10559,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21966,36 +10572,17 @@ :num #x73 :ref-time-num #x6e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 #x6e) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22005,31 +10592,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22037,36 +10605,17 @@ :num #x82 :ref-time-num #x78 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 #x78) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22077,44 +10626,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22122,47 +10645,21 @@ :num #x96 :ref-time-num 100 :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22170,36 +10667,17 @@ :num #xa0 :ref-time-num #x8c :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x8c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22210,31 +10688,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22242,36 +10701,17 @@ :num #xb4 :ref-time-num #xaa :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 #xaa) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22282,44 +10722,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22328,47 +10742,21 @@ :num #xc8 :ref-time-num #xbe :score -100 - :flags #x50 + :flags (tpath-info-flags start-on-rand-anim tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22379,27 +10767,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22408,30 +10780,14 @@ :num #xdc :ref-time-num #xd2 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22442,27 +10798,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22473,27 +10813,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22504,27 +10828,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22535,27 +10843,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22563,27 +10855,15 @@ :num #x10e :ref-time-num #x104 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x104) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22594,31 +10874,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x38) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22627,36 +10888,17 @@ :num #x122 :ref-time-num #x118 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x8c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22667,32 +10909,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22701,38 +10923,17 @@ :num #x136 :ref-time-num #x12c :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x12c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x30) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22743,31 +10944,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22775,36 +10957,17 @@ :num #x14a :ref-time-num #x140 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x140) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22813,35 +10976,15 @@ :num #x154 :ref-time-num #x14a :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22851,31 +10994,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22883,32 +11007,16 @@ :num #x168 :ref-time-num #x15e :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x15e) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x3b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22919,32 +11027,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22952,38 +11040,17 @@ :num #x17c :ref-time-num #x172 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x172) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x43) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22993,31 +11060,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23025,37 +11073,17 @@ :num #x18b :ref-time-num #x186 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x186) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23066,32 +11094,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x40) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23100,35 +11108,15 @@ :num #x19a :ref-time-num #x190 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23139,32 +11127,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23173,35 +11141,15 @@ :num #x1ae :ref-time-num #x1a4 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23210,35 +11158,15 @@ :num #x1b3 :ref-time-num #x1ae :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23249,32 +11177,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23283,38 +11191,17 @@ :num #x1b6 :ref-time-num #x1b4 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x1b4) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xbf - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xbf :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23325,27 +11212,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23354,35 +11225,15 @@ :num #x1c2 :ref-time-num #x1b8 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #xbf - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #xbf :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23391,34 +11242,15 @@ :num #x1cc :ref-time-num #x1c2 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x49) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23427,35 +11259,15 @@ :num #x1d6 :ref-time-num #x1cc :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23463,36 +11275,17 @@ :num #x1db :ref-time-num #x1d6 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x1d6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23501,35 +11294,15 @@ :num #x1e0 :ref-time-num #x1db :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.8 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23538,35 +11311,15 @@ :num #x1ea :ref-time-num #x1e0 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23577,31 +11330,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23609,36 +11343,17 @@ :num #x1f9 :ref-time-num #x1f4 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x12c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23646,36 +11361,17 @@ :num #x1fa :ref-time-num #x1f9 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x131) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23683,36 +11379,17 @@ :num #x1fb :ref-time-num #x1fa :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x1fa) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23723,31 +11400,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23755,34 +11413,15 @@ :num #x208 :ref-time-num #x1fe :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23790,38 +11429,17 @@ :num #x20d :ref-time-num #x208 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x208) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23830,26 +11448,13 @@ :num #x212 :ref-time-num #x208 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23858,34 +11463,15 @@ :num #x21c :ref-time-num #x212 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23894,35 +11480,15 @@ :num #x226 :ref-time-num #x21c :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23931,35 +11497,15 @@ :num #x230 :ref-time-num #x226 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23970,31 +11516,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24003,34 +11530,15 @@ :num #x244 :ref-time-num #x23a :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xd) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24041,31 +11549,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xc) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24076,31 +11565,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24111,31 +11581,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24146,31 +11597,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24179,34 +11611,15 @@ :num #x276 :ref-time-num #x26c :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24214,36 +11627,15 @@ :num #x280 :ref-time-num #x276 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24252,34 +11644,15 @@ :num #x28a :ref-time-num #x280 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x16) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24287,34 +11660,15 @@ :num #x294 :ref-time-num #x28a :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24324,31 +11678,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x17) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24358,31 +11693,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x15) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24392,31 +11708,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x13) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24425,26 +11722,13 @@ :num #x2bc :ref-time-num #x2b2 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24455,23 +11739,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24480,26 +11751,13 @@ :num #x2d0 :ref-time-num #x2c6 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24510,23 +11768,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24537,27 +11782,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24568,28 +11797,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24598,26 +11810,13 @@ :num #x2f8 :ref-time-num #x2ee :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24628,23 +11827,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24655,23 +11841,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24682,23 +11855,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24709,23 +11869,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24736,23 +11883,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24763,23 +11897,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24790,23 +11911,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24817,23 +11925,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24844,23 +11939,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24871,23 +11953,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24898,23 +11967,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24923,26 +11979,13 @@ :num #x33c :ref-time-num #x33b :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24953,23 +11996,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24980,23 +12010,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25007,23 +12024,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25034,23 +12038,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25061,23 +12052,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25088,23 +12066,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25113,26 +12078,13 @@ :num #x37a :ref-time-num #x370 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25141,26 +12093,13 @@ :num #x384 :ref-time-num #x37a :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25169,26 +12108,13 @@ :num #x38e :ref-time-num #x384 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) diff --git a/goal_src/jak2/levels/gungame/gungame-obs.gc b/goal_src/jak2/levels/gungame/gungame-obs.gc index a147a4ed5b..84b763bb89 100644 --- a/goal_src/jak2/levels/gungame/gungame-obs.gc +++ b/goal_src/jak2/levels/gungame/gungame-obs.gc @@ -156,6 +156,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! training-path ((obj training-path) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (length "training-path-")) (a0-3 (length (-> obj name))) (v1-2 0) @@ -932,14 +938,8 @@ :ref-time-num -1 :anim1 (new 'static 'inline-array tpath-control-frame 4 (new 'static 'tpath-control-frame :path-num #x23) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time -1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time -1.0 :command (tpath-control-frame-command wait)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -947,15 +947,8 @@ :ref-time-num -1 :anim1 (new 'static 'inline-array tpath-control-frame 4 (new 'static 'tpath-control-frame :path-num #x23) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time -1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time -1.0 :command (tpath-control-frame-command wait)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1168,13 +1161,13 @@ (dotimes (gp-2 (length (-> self course))) (let ((v1-20 (-> self course gp-2))) 0 - (logior! (-> v1-20 flags) 1) - (set! (-> v1-20 flags) (logand -3 (-> v1-20 flags))) + (logior! (-> v1-20 flags) (tpath-info-flags tpath-info-flags-0)) + (logclear! (-> v1-20 flags) (tpath-info-flags broken)) (cond - ((logtest? (-> v1-20 flags) 8) + ((logtest? (-> v1-20 flags) (tpath-info-flags tpath-info-flags-3)) (+! (-> self total-bonus) 1) ) - ((not (logtest? (-> v1-20 flags) 4)) + ((not (logtest? (-> v1-20 flags) (tpath-info-flags score-not-influenced-by-speed))) (+! (-> self total-target) 1) ) ) @@ -1462,13 +1455,13 @@ ) (dotimes (gp-0 (length (-> self course))) (let ((s5-0 (-> self course gp-0))) - (when (and (logtest? (-> s5-0 flags) 1) (>= f30-0 (-> s5-0 s-time))) + (when (and (logtest? (-> s5-0 flags) (tpath-info-flags tpath-info-flags-0)) (>= f30-0 (-> s5-0 s-time))) (cond - ((logtest? (-> s5-0 flags) 8) + ((logtest? (-> s5-0 flags) (tpath-info-flags tpath-info-flags-3)) (let ((s4-0 #t)) (dotimes (s3-0 (length (-> self course))) (let ((s2-0 (-> self course s3-0))) - (when (not (logtest? (-> s2-0 flags) 2)) + (when (not (logtest? (-> s2-0 flags) (tpath-info-flags broken))) (dotimes (s1-0 (length (-> s5-0 list))) (if (= (-> s5-0 list s1-0) (-> s2-0 num)) (set! s4-0 #f) @@ -1479,15 +1472,17 @@ ) (when s4-0 (process-spawn gun-dummy-gold self s5-0 :to self) - (set! (-> s5-0 flags) (logand -2 (-> s5-0 flags))) + (logclear! (-> s5-0 flags) (tpath-info-flags tpath-info-flags-0)) ) ) (if (>= f30-0 (+ (-> s5-0 bonus-time) (-> s5-0 s-time))) - (set! (-> s5-0 flags) (logand -2 (-> s5-0 flags))) + (logclear! (-> s5-0 flags) (tpath-info-flags tpath-info-flags-0)) ) ) (else - (when (and (not (logtest? (-> s5-0 flags) 4)) (not (-> self first-enemy-shown?))) + (when (and (not (logtest? (-> s5-0 flags) (tpath-info-flags score-not-influenced-by-speed))) + (not (-> self first-enemy-shown?)) + ) (if (task-node-open? (game-task-node city-red-gun-training-try-once)) (set! (-> self last-sound-id) (add-process *gui-control* self (gui-channel sig) (gui-action play) "sigc024" -99.0 0) @@ -1495,7 +1490,9 @@ ) (set! (-> self first-enemy-shown?) #t) ) - (when (and (logtest? (-> s5-0 flags) 4) (not (-> self first-citizen-shown?))) + (when (and (logtest? (-> s5-0 flags) (tpath-info-flags score-not-influenced-by-speed)) + (not (-> self first-citizen-shown?)) + ) (if (task-node-open? (game-task-node city-red-gun-training-try-once)) (set! (-> self last-sound-id) (add-process *gui-control* self (gui-channel sig) (gui-action play) "sigc025" -99.0 0) @@ -1504,7 +1501,7 @@ (set! (-> self first-citizen-shown?) #t) ) (cond - ((logtest? (-> s5-0 flags) 4) + ((logtest? (-> s5-0 flags) (tpath-info-flags score-not-influenced-by-speed)) (let ((v1-93 (rand-vu-int-count 4))) (cond ((zero? v1-93) @@ -1522,10 +1519,10 @@ ) ) ) - ((logtest? (-> s5-0 flags) 32) + ((logtest? (-> s5-0 flags) (tpath-info-flags double-hitpoints)) (process-spawn gun-dummy-big self s5-0 :to self) ) - ((logtest? (-> s5-0 flags) 64) + ((logtest? (-> s5-0 flags) (tpath-info-flags tpath-info-flags-6)) (process-spawn gun-dummy-peace self s5-0 :to self) ) (else @@ -1544,7 +1541,7 @@ ) ) ) - (set! (-> s5-0 flags) (logand -2 (-> s5-0 flags))) + (logclear! (-> s5-0 flags) (tpath-info-flags tpath-info-flags-0)) ) ) ) @@ -1567,7 +1564,7 @@ ) a1-37 ) - (logtest? (-> gp-1 flags) 2) + (logtest? (-> gp-1 flags) (tpath-info-flags broken)) ) ) ) @@ -2101,7 +2098,7 @@ (set! (-> s4-0 y) (+ 40960.0 (-> s4-0 y))) (set! (-> s4-0 z) (+ 5025792.0 (-> s4-0 z))) (training-manager-method-29 obj s4-0) - (set! (-> s3-0 pickup-type) (the-as pickup-type (-> arg0 s2-0 ammo))) + (set! (-> s3-0 pickup-type) (-> arg0 s2-0 ammo)) (set! (-> s3-0 pickup-spawn-amount) (the float (-> arg0 s2-0 num))) (let* ((s0-0 (ppointer->process (process-spawn crate #f s4-0 'wood s3-0 :to *entity-pool*))) (s1-1 (if (type? s0-0 process-focusable) @@ -2122,8 +2119,8 @@ (dotimes (s5-0 (length arg0)) (let ((v1-2 (-> arg0 s5-0))) 0 - (logior! (-> v1-2 flags) 1) - (set! (-> v1-2 flags) (logand -3 (-> v1-2 flags))) + (logior! (-> v1-2 flags) (tpath-info-flags tpath-info-flags-0)) + (logclear! (-> v1-2 flags) (tpath-info-flags broken)) (let ((a0-6 (-> v1-2 ref-time-num))) (set! (-> v1-2 ref-time-num) -1) (dotimes (a1-3 s5-0) @@ -2188,6 +2185,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! training-manager ((obj training-manager) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (set-setting! 'darkjak #f 0 0) (set! sv-16 (new 'static 'res-tag)) @@ -2248,7 +2251,10 @@ ) -(defskelgroup skel-gungame-door fort-entry-gate 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 3 0 10)) +(defskelgroup skel-gungame-door fort-entry-gate fort-entry-gate-lod0-jg fort-entry-gate-idle-ja + ((fort-entry-gate-lod0-mg (meters 999999))) + :bounds (static-spherem 0 3 0 10) + ) (defstate idle (gungame-door) :virtual #t @@ -2461,6 +2467,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! gungame-door ((obj gungame-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) diff --git a/goal_src/jak2/levels/hideout/hideout-obs.gc b/goal_src/jak2/levels/hideout/hideout-obs.gc index 706e76d674..c63595f7e1 100644 --- a/goal_src/jak2/levels/hideout/hideout-obs.gc +++ b/goal_src/jak2/levels/hideout/hideout-obs.gc @@ -24,6 +24,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! hide-door-b ((obj hide-door-b) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 1024) (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) @@ -151,6 +157,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! hide-light ((obj hide-light) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) diff --git a/goal_src/jak2/levels/hiphog/hiphog-part.gc b/goal_src/jak2/levels/hiphog/hiphog-part.gc index 4ff50bf033..6724710268 100644 --- a/goal_src/jak2/levels/hiphog/hiphog-part.gc +++ b/goal_src/jak2/levels/hiphog/hiphog-part.gc @@ -1161,37 +1161,40 @@ (arg3 sparticle-launcher) (arg4 sparticle-launch-state) ) + "Determines the position of the minute hand of the hiphog's clock associated with [[time-of-day-proc]] +TODO - check args +Every real second is 1 minute in Jak's time of day" (local-vars (v1-4 float) (v1-5 float)) (rlet ((vf0 :class vf) (vf1 :class vf) (vf2 :class vf) ) (init-vf0-vector) - (let ((gp-0 (new 'stack-no-clear 'quaternion))) - (let ((a1-1 (new 'stack-no-clear 'vector))) - (let* ((v1-0 *time-of-day*) - (f0-1 (the float (if v1-0 - (-> v1-0 0 minutes) - 0 - ) - ) - ) + (let ((quat (new 'stack-no-clear 'quaternion))) + (let ((temp-vec (new 'stack-no-clear 'vector))) + (let* ((tod *time-of-day*) + (curr-minutes (the float (if tod + (-> tod 0 minutes) + 0 + ) + ) + ) ) - (set-vector! a1-1 (+ 16384.0 (* 1092.2667 f0-1)) 55238.84 49152.0 1.0) + (set-vector! temp-vec (+ 16384.0 (* 1092.2667 curr-minutes)) 55238.84 49152.0 1.0) ) - (quaternion-zxy! gp-0 a1-1) + (quaternion-zxy! quat temp-vec) ) (cond - ((< (-> gp-0 w) 0.0) + ((< (-> quat w) 0.0) (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.sub.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-4 vf1) ) (else (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.add.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-5 vf1) @@ -1209,37 +1212,40 @@ (arg3 sparticle-launcher) (arg4 sparticle-launch-state) ) + "Determines the position of the hour hand of the hiphog's clock associated with [[time-of-day-proc]] +TODO - check args +Every real minute is 1 hour in Jak's time of day" (local-vars (v1-4 float) (v1-5 float)) (rlet ((vf0 :class vf) (vf1 :class vf) (vf2 :class vf) ) (init-vf0-vector) - (let ((gp-0 (new 'stack-no-clear 'quaternion))) - (let ((a1-1 (new 'stack-no-clear 'vector))) - (let* ((v1-0 *time-of-day*) - (f0-1 (the float (if v1-0 - (-> v1-0 0 hours) - 0 - ) - ) - ) + (let ((quat (new 'stack-no-clear 'quaternion))) + (let ((temp-vec (new 'stack-no-clear 'vector))) + (let* ((tod *time-of-day*) + (curr-hours (the float (if tod + (-> tod 0 hours) + 0 + ) + ) + ) ) - (set-vector! a1-1 (+ 16384.0 (* 5461.3335 f0-1)) 55238.84 49152.0 1.0) + (set-vector! temp-vec (+ 16384.0 (* 5461.3335 curr-hours)) 55238.84 49152.0 1.0) ) - (quaternion-zxy! gp-0 a1-1) + (quaternion-zxy! quat temp-vec) ) (cond - ((< (-> gp-0 w) 0.0) + ((< (-> quat w) 0.0) (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.sub.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-4 vf1) ) (else (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.add.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-5 vf1) @@ -1257,37 +1263,41 @@ (arg3 sparticle-launcher) (arg4 sparticle-launch-state) ) + "Determines the position of the second hand of the hiphog's clock associated with [[time-of-day-proc]] +TODO - check args +The clock actually only has 2 hands, this one does not appear to have been used? +Every real second is 1/60th of a second in Jak's time of day" (local-vars (v1-4 float) (v1-5 float)) (rlet ((vf0 :class vf) (vf1 :class vf) (vf2 :class vf) ) (init-vf0-vector) - (let ((gp-0 (new 'stack-no-clear 'quaternion))) - (let ((a1-1 (new 'stack-no-clear 'vector))) - (let* ((v1-0 *time-of-day*) - (f0-1 (the float (if v1-0 - (-> v1-0 0 seconds) - 0 - ) - ) - ) + (let ((quat (new 'stack-no-clear 'quaternion))) + (let ((temp-vec (new 'stack-no-clear 'vector))) + (let* ((tod *time-of-day*) + (curr-seconds (the float (if tod + (-> tod 0 seconds) + 0 + ) + ) + ) ) - (set-vector! a1-1 (+ 16384.0 (* 1092.2667 f0-1)) 55238.84 49152.0 1.0) + (set-vector! temp-vec (+ 16384.0 (* 1092.2667 curr-seconds)) 55238.84 49152.0 1.0) ) - (quaternion-zxy! gp-0 a1-1) + (quaternion-zxy! quat temp-vec) ) (cond - ((< (-> gp-0 w) 0.0) + ((< (-> quat w) 0.0) (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.sub.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-4 vf1) ) (else (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.add.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-5 vf1) @@ -1480,6 +1490,7 @@ ) (deftype hiphog-mirror-wf-pt (structure) + "@unused seemingly not used, but probably stood for hiphog-mirror-waveform-point" ((x float :offset-assert 0) (y float :offset-assert 4) ) @@ -1489,17 +1500,21 @@ ) -(define *hiphog-mirror-sheen-waveform* (new 'static 'inline-array ripple-wave 6 - (new 'static 'ripple-wave :xmul 0.0625 :zmul 0.5) - (new 'static 'ripple-wave :offs 0.125 :zmul 0.375 :delta 0.9) - (new 'static 'ripple-wave :xdiv -13107 :zdiv #x3ecc :delta 0.5) - (new 'static 'ripple-wave :scale 1.0 :speed 0.52) - (new 'static 'ripple-wave :scale 0.5625 :offs 0.5 :xmul 0.625) - (new 'static 'ripple-wave :offs 0.875 :zdiv #x3f80 :zmul 1.0) - ) - ) +(define *hiphog-mirror-sheen-waveform* + "A collection of [[ripple-wave]]'s used to apply the effect to the hiphog's mirror" + (new 'static 'inline-array ripple-wave 6 + (new 'static 'ripple-wave :xmul 0.0625 :zmul 0.5) + (new 'static 'ripple-wave :offs 0.125 :zmul 0.375 :delta 0.9) + (new 'static 'ripple-wave :xdiv -13107 :zdiv #x3ecc :delta 0.5) + (new 'static 'ripple-wave :scale 1.0 :speed 0.52) + (new 'static 'ripple-wave :scale 0.5625 :offs 0.5 :xmul 0.625) + (new 'static 'ripple-wave :offs 0.875 :zdiv #x3f80 :zmul 1.0) + ) + ) (defun hiphog-mirror-sheen-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "Handles the effect on the hiphogs mirror, which involves using [[*hiphog-mirror-sheen-waveform*]] +TODO on args and some more documentation" (let ((s5-0 (new 'stack-no-clear 'vector))) (set-vector! s5-0 -1515.52 0.0 -95436.8 1.0) (vector-! s5-0 (camera-pos) s5-0) @@ -1507,17 +1522,19 @@ (vector-normalize! s5-0 1.0) (let* ((f0-8 (+ 32768.0 (atan (-> s5-0 x) (-> s5-0 z)))) (f0-9 (lerp-scale 0.0 1.0 f0-8 19478.756 45875.2)) - (a2-2 (the-as object (-> *hiphog-mirror-sheen-waveform* 0))) - (v1-4 (the-as ripple-wave a2-2)) + (curr-ripple-wave (the-as object (-> *hiphog-mirror-sheen-waveform* 0))) + (prev-ripple-wave (the-as ripple-wave curr-ripple-wave)) ) - (while (< (-> (the-as ripple-wave a2-2) scale) f0-9) - (set! v1-4 (the-as ripple-wave a2-2)) - (set! a2-2 (&-> (the-as (inline-array ripple-wave) a2-2) 0 xmul)) + (while (< (-> (the-as ripple-wave curr-ripple-wave) scale) f0-9) + (set! prev-ripple-wave (the-as ripple-wave curr-ripple-wave)) + (set! curr-ripple-wave (&-> (the-as (inline-array ripple-wave) curr-ripple-wave) 0 xmul)) ) (let ((f0-12 (lerp 0.9 1.0 (lerp - (-> v1-4 offs) - (-> (the-as ripple-wave a2-2) offs) - (/ (- f0-9 (-> v1-4 scale)) (- (-> (the-as ripple-wave a2-2) scale) (-> v1-4 scale))) + (-> prev-ripple-wave offs) + (-> (the-as ripple-wave curr-ripple-wave) offs) + (/ (- f0-9 (-> prev-ripple-wave scale)) + (- (-> (the-as ripple-wave curr-ripple-wave) scale) (-> prev-ripple-wave scale)) + ) ) ) ) diff --git a/goal_src/jak2/levels/hiphog/hiphog-scenes.gc b/goal_src/jak2/levels/hiphog/hiphog-scenes.gc index c2524e9816..a2532b9300 100644 --- a/goal_src/jak2/levels/hiphog/hiphog-scenes.gc +++ b/goal_src/jak2/levels/hiphog/hiphog-scenes.gc @@ -25,37 +25,43 @@ ;; WARN: Return type mismatch object vs none. -(defmethod init-from-entity! hip-door-b ((obj hip-door-b) (arg0 entity-actor)) - (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (set! (-> s5-0 penetrated-by) (penetrate)) - (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) - (set! (-> s5-0 total-prims) (the-as uint 3)) - (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle)) - (set! (-> s4-0 prim-core collide-with) (collide-spec jak bot player-list)) - (set! (-> s4-0 prim-core action) (collide-action solid)) - (set-vector! (-> s4-0 local-sphere) 0.0 8192.0 0.0 20480.0) - (set! (-> s5-0 root-prim) s4-0) +(defmethod init-from-entity! hip-door-b ((obj hip-door-b) (entiy entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (set! (-> cshape penetrated-by) (penetrate)) + (let ((cshape-group (new 'process 'collide-shape-prim-group cshape (the-as uint 2) 0))) + (set! (-> cshape total-prims) (the-as uint 3)) + (set! (-> cshape-group prim-core collide-as) (collide-spec obstacle)) + (set! (-> cshape-group prim-core collide-with) (collide-spec jak bot player-list)) + (set! (-> cshape-group prim-core action) (collide-action solid)) + (set-vector! (-> cshape-group local-sphere) 0.0 8192.0 0.0 20480.0) + (set! (-> cshape root-prim) cshape-group) ) - (let ((v1-8 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-8 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-8 prim-core collide-with) (collide-spec jak bot player-list)) - (set! (-> v1-8 prim-core action) (collide-action solid)) - (set! (-> v1-8 transform-index) 4) - (set-vector! (-> v1-8 local-sphere) 0.0 8192.0 0.0 16384.0) + (let ((cshape-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> cshape-mesh prim-core collide-as) (collide-spec obstacle)) + (set! (-> cshape-mesh prim-core collide-with) (collide-spec jak bot player-list)) + (set! (-> cshape-mesh prim-core action) (collide-action solid)) + (set! (-> cshape-mesh transform-index) 4) + (set-vector! (-> cshape-mesh local-sphere) 0.0 8192.0 0.0 16384.0) ) - (let ((v1-10 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 1) (the-as uint 0)))) - (set! (-> v1-10 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-10 prim-core collide-with) (collide-spec jak bot player-list)) - (set! (-> v1-10 prim-core action) (collide-action solid)) - (set! (-> v1-10 transform-index) 5) - (set-vector! (-> v1-10 local-sphere) 0.0 8192.0 0.0 16384.0) + (let ((cshape-mesh2 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 1) (the-as uint 0)))) + (set! (-> cshape-mesh2 prim-core collide-as) (collide-spec obstacle)) + (set! (-> cshape-mesh2 prim-core collide-with) (collide-spec jak bot player-list)) + (set! (-> cshape-mesh2 prim-core action) (collide-action solid)) + (set! (-> cshape-mesh2 transform-index) 5) + (set-vector! (-> cshape-mesh2 local-sphere) 0.0 8192.0 0.0 16384.0) ) - (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w))) - (let ((v1-13 (-> s5-0 root-prim))) - (set! (-> s5-0 backup-collide-as) (-> v1-13 prim-core collide-as)) - (set! (-> s5-0 backup-collide-with) (-> v1-13 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root prim-core collide-with)) ) - (set! (-> obj root-override) s5-0) + (set! (-> obj root-override) cshape) ) (initialize-skeleton obj @@ -111,8 +117,8 @@ (defmethod get-art-elem hip-whack-a-metal ((obj hip-whack-a-metal)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" - (case (-> (game-task-control-method-9 (-> obj task)) action) +@returns the appropriate [[art-element]] for the given NPC" + (case (-> (get-current-task-event (-> obj task)) action) (((game-task-action play)) (set! (-> obj talk-message) (game-text-id text-x186)) ) @@ -181,9 +187,15 @@ ) ;; WARN: Return type mismatch object vs none. -(defmethod init-from-entity! hip-mirror ((obj hip-mirror) (arg0 entity-actor)) +(defmethod init-from-entity! hip-mirror ((obj hip-mirror) (entity entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) - (process-drawable-from-entity! obj arg0) + (process-drawable-from-entity! obj entity) (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-hip-mirror" (the-as (pointer uint32) #f))) @@ -246,9 +258,9 @@ ) (defun hiphog-activate () - (let ((a0-1 (entity-by-name "hip-mirror-2"))) - (when a0-1 - (set! (-> *math-camera* mirror-trans quad) (-> a0-1 extra trans quad)) + (let ((mirror (entity-by-name "hip-mirror-2"))) + (when mirror + (set! (-> *math-camera* mirror-trans quad) (-> mirror extra trans quad)) (vector-rotate-y! (-> *math-camera* mirror-normal) (new 'static 'vector :x 1.0 :w 1.0) -10297.162) ) ) @@ -324,32 +336,32 @@ ) ) -(defskelgroup skel-computerpaper computerpaper 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-computerpaper computerpaper computerpaper-lod0-jg -1 + ((computerpaper-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 1) :origin-joint-index 3 ) -(defskelgroup skel-hip-bottle-b hip-bottle-b 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-hip-bottle-b hip-bottle-b hip-bottle-b-lod0-jg -1 + ((hip-bottle-b-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 1) :origin-joint-index 4 ) -(defskelgroup skel-hip-bottle-c hip-bottle-c 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-hip-bottle-c hip-bottle-c hip-bottle-c-lod0-jg -1 + ((hip-bottle-c-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 1) :origin-joint-index 4 ) -(defskelgroup skel-hip-mug hip-mug 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-hip-mug hip-mug hip-mug-lod0-jg -1 + ((hip-mug-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 1) :origin-joint-index 3 ) -(defskelgroup skel-krew-moneybag krew-moneybag 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-krew-moneybag krew-moneybag krew-moneybag-lod0-jg -1 + ((krew-moneybag-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 2) :origin-joint-index 3 ) @@ -365,7 +377,7 @@ (defmethod get-art-elem sig-npc ((obj sig-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (if (task-node-open? (game-task-node forest-hunt-introduction)) (-> obj draw art-group data 4) (-> obj draw art-group data 4) diff --git a/goal_src/jak2/levels/mars_tomb/tomb-obs.gc b/goal_src/jak2/levels/mars_tomb/tomb-obs.gc index 1f24dbc5dd..2f97327fc8 100644 --- a/goal_src/jak2/levels/mars_tomb/tomb-obs.gc +++ b/goal_src/jak2/levels/mars_tomb/tomb-obs.gc @@ -20,8 +20,8 @@ ) -(defskelgroup skel-tomb-plat-wall tomb-plat-wall 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-tomb-plat-wall tomb-plat-wall tomb-plat-wall-lod0-jg tomb-plat-wall-idle-ja + ((tomb-plat-wall-lod0-mg (meters 20)) (tomb-plat-wall-lod1-mg (meters 999999))) :bounds (static-spherem 0 -5 4 8.5) :origin-joint-index 3 ) @@ -112,8 +112,8 @@ (none) ) -(defmethod base-plat-method-31 tomb-plat-wall ((obj tomb-plat-wall)) - "TODO - collision stuff" +(defmethod init-plat-collision! tomb-plat-wall ((obj tomb-plat-wall)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -138,8 +138,14 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-plat-wall ((obj tomb-plat-wall) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask platform) (-> obj mask))) - (base-plat-method-31 obj) + (init-plat-collision! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj (the-as skeleton-group (get-art-group obj)) (the-as pair 0)) (set! (-> obj draw light-index) (the-as uint 1)) @@ -154,7 +160,7 @@ (if (not (logtest? (-> obj fact options) (actor-option loop))) (set! v1-16 (logior v1-16 1)) ) - (set! (-> a1-4 sync-type) (the-as basic 'sync-eased)) + (set! (-> a1-4 sync-type) 'sync-eased) (set! (-> a1-4 sync-flags) (the-as sync-flags v1-16)) ) (set! (-> a1-4 period) (the-as uint 1200)) @@ -186,8 +192,8 @@ ) -(defskelgroup skel-tomb-stair-block-spikes tomb-stair-block-spikes 0 2 - ((1 (meters 999999))) +(defskelgroup skel-tomb-stair-block-spikes tomb-stair-block-spikes tomb-stair-block-spikes-lod0-jg tomb-stair-block-spikes-idle-ja + ((tomb-stair-block-spikes-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 4) ) @@ -360,8 +366,8 @@ ) -(defskelgroup skel-tomb-stair-block tomb-stair-block 0 2 - ((1 (meters 999999))) +(defskelgroup skel-tomb-stair-block tomb-stair-block tomb-stair-block-lod0-jg tomb-stair-block-idle-ja + ((tomb-stair-block-lod0-mg (meters 999999))) :bounds (static-spherem 0 32 0 58) ) @@ -785,6 +791,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-stair-block ((obj tomb-stair-block) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 penetrated-by) (penetrate)) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 8) 0))) @@ -897,7 +909,10 @@ (none) ) -(defskelgroup skel-tomb-bounce-web tomb-bounce-web 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 4)) +(defskelgroup skel-tomb-bounce-web tomb-bounce-web tomb-bounce-web-lod0-jg tomb-bounce-web-idle-ja + ((tomb-bounce-web-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 4) + ) (deftype tomb-bounce-web (bouncer) () @@ -979,8 +994,8 @@ ) -(defskelgroup skel-tomb-plat-pillar tomb-plat-pillar 0 2 - ((1 (meters 999999))) +(defskelgroup skel-tomb-plat-pillar tomb-plat-pillar tomb-plat-pillar-lod0-jg tomb-plat-pillar-idle-ja + ((tomb-plat-pillar-lod0-mg (meters 999999))) :bounds (static-spherem 0 -7 0 8) ) @@ -995,8 +1010,8 @@ ) ;; WARN: Return type mismatch collide-shape vs none. -(defmethod base-plat-method-31 tomb-plat-pillar ((obj tomb-plat-pillar)) - "TODO - collision stuff" +(defmethod init-plat-collision! tomb-plat-pillar ((obj tomb-plat-pillar)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle pusher)) @@ -1029,7 +1044,10 @@ ) -(defskelgroup skel-tomb-elevator tomb-elevator 0 3 ((1 (meters 999999))) :bounds (static-spherem 4 0 4 7)) +(defskelgroup skel-tomb-elevator tomb-elevator tomb-elevator-lod0-jg tomb-elevator-idle-ja + ((tomb-elevator-lod0-mg (meters 999999))) + :bounds (static-spherem 4 0 4 7) + ) (defstate running (tomb-elevator) :virtual #t @@ -1043,11 +1061,11 @@ (none) ) :code (behavior () - (logior! (-> self elevator-status) (elevator-status elevator-status-1)) + (logior! (-> self elevator-status) (elevator-status waiting-to-ascend)) (ja-no-eval :group! (-> self draw art-group data 4) :num! (loop! 0.0)) (until #f (when (= (-> self path-pos) 1.0) - (logclear! (-> self elevator-status) (elevator-status elevator-status-1)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-ascend)) (sound-play "t-elevator-hit") ) (suspend) @@ -1070,11 +1088,11 @@ (defmethod init-defaults! tomb-elevator ((obj tomb-elevator)) "Initializes default settings related to the [[elevator]]: - - `elevator-xz-threshold` - - `elevator-y-threshold` - - `elevator-start-pos` - - `elevator-move-rate` - - `elevator-flags`" +- `elevator-xz-threshold` +- `elevator-y-threshold` +- `elevator-start-pos` +- `elevator-move-rate` +- `elevator-flags`" (let ((t9-0 (method-of-type elevator init-defaults!))) (t9-0 obj) ) @@ -1089,8 +1107,8 @@ ) ;; WARN: Return type mismatch collide-shape vs none. -(defmethod base-plat-method-31 tomb-elevator ((obj tomb-elevator)) - "TODO - collision stuff" +(defmethod init-plat-collision! tomb-elevator ((obj tomb-elevator)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 2) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle pusher)) @@ -1112,8 +1130,8 @@ (none) ) -(defmethod clear-ambient-sound! tomb-elevator ((obj tomb-elevator)) - "Might be a virtual function, but clears the object's [[ambient-sound]]" +(defmethod set-ambient-sound! tomb-elevator ((obj tomb-elevator)) + "Sets the elevator's [[ambient-sound]] up" (set! (-> obj sound) (new 'process 'ambient-sound (static-sound-spec "tomb-elevator" :fo-max 70) (-> obj root-override trans)) ) @@ -1121,8 +1139,8 @@ (none) ) -(defskelgroup skel-tomb-boss-door tomb-boss-door 0 2 - ((1 (meters 999999))) +(defskelgroup skel-tomb-boss-door tomb-boss-door tomb-boss-door-lod0-jg tomb-boss-door-idle-ja + ((tomb-boss-door-lod0-mg (meters 999999))) :bounds (static-spherem 0 21 0 60) :origin-joint-index 3 ) @@ -1138,7 +1156,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-boss-door ((obj tomb-boss-door) (arg0 entity-actor)) - (stack-size-set! (-> obj main-thread) 1024) ;; added + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1220,8 +1243,8 @@ (none) ) -(defskelgroup skel-tomb-wing-door tomb-wing-door 0 2 - ((1 (meters 999999))) +(defskelgroup skel-tomb-wing-door tomb-wing-door tomb-wing-door-lod0-jg tomb-wing-door-idle-ja + ((tomb-wing-door-lod0-mg (meters 999999))) :bounds (static-spherem 0 -10 0 20) ) @@ -1236,7 +1259,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-wing-door ((obj tomb-wing-door) (arg0 entity-actor)) - (stack-size-set! (-> obj main-thread) 1024) ;; added + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 3) 0))) @@ -1289,8 +1317,8 @@ (none) ) -(defskelgroup skel-tomb-boulder-door tomb-boulder-door 0 2 - ((1 (meters 999999))) +(defskelgroup skel-tomb-boulder-door tomb-boulder-door tomb-boulder-door-lod0-jg tomb-boulder-door-idle-ja + ((tomb-boulder-door-lod0-mg (meters 999999))) :bounds (static-spherem 0 7 0 10) :origin-joint-index 3 ) @@ -1348,6 +1376,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-boulder-door ((obj tomb-boulder-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle camera-blocker)) @@ -1401,8 +1435,8 @@ ) -(defskelgroup skel-tomb-plat-return tomb-plat-return 0 2 - ((1 (meters 999999))) +(defskelgroup skel-tomb-plat-return tomb-plat-return tomb-plat-return-lod0-jg tomb-plat-return-idle-ja + ((tomb-plat-return-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 4.8) ) @@ -1592,8 +1626,8 @@ (none) ) -(defmethod base-plat-method-31 tomb-plat-return ((obj tomb-plat-return)) - "TODO - collision stuff" +(defmethod init-plat-collision! tomb-plat-return ((obj tomb-plat-return)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -1618,7 +1652,13 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-plat-return ((obj tomb-plat-return) (arg0 entity-actor)) - (base-plat-method-31 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-plat-collision! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj @@ -1647,7 +1687,7 @@ (set! (-> obj root-override pause-adjust-distance) (+ 204800.0 f30-0)) ) (set! (-> obj sound-id) (the-as uint (new-sound-id))) - (base-plat-method-33 obj) + (init-plat! obj) (if (or (task-closed? (the-as string ((method-of-type res-lump get-property-struct) (-> obj entity) 'task-name @@ -1943,6 +1983,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-sphinx ((obj tomb-sphinx) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root-override) (the-as collide-shape-moving (new 'process 'trsqv))) (process-drawable-from-entity! obj arg0) (set! (-> obj target-actor) (entity-actor-lookup arg0 'alt-actor 0)) diff --git a/goal_src/jak2/levels/mars_tomb/tomb-scenes.gc b/goal_src/jak2/levels/mars_tomb/tomb-scenes.gc index 2821a02c19..0542669857 100644 --- a/goal_src/jak2/levels/mars_tomb/tomb-scenes.gc +++ b/goal_src/jak2/levels/mars_tomb/tomb-scenes.gc @@ -7,14 +7,14 @@ ;; DECOMP BEGINS -(defskelgroup skel-tomb-boss-explode tomb-boss-explode 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-tomb-boss-explode tomb-boss-explode tomb-boss-explode-lod0-jg -1 + ((tomb-boss-explode-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 20) :origin-joint-index 4 ) -(defskelgroup skel-tomb-boss-explode-a tomb-boss-explode 3 -1 - ((4 (meters 999999))) +(defskelgroup skel-tomb-boss-explode-a tomb-boss-explode tomb-boss-explode-a-lod0-jg -1 + ((tomb-boss-explode-a-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 20) :origin-joint-index 3 ) @@ -347,10 +347,10 @@ (defbehavior attach-pod-part scene-player () (let ((v1-0 #f) - (gp-0 (-> self subtitle-change-time)) + (sub-change-time (-> self subtitle-change-time)) ) (when (>= (- (-> self clock frame-counter) (-> self speed-press-time)) 0) - (set! gp-0 (logxor gp-0 2048)) + (set! sub-change-time (logxor sub-change-time 2048)) (set! (-> self speed-press-time) (+ (-> self clock frame-counter) (seconds 0.5))) (set! v1-0 #t) ) @@ -361,8 +361,8 @@ (v1-7 (the-as number (logior #x3f800000 v1-6))) ) (if (< f30-0 (+ -1.0 (the-as float v1-7))) - (set! gp-0 (logior gp-0 (ash 1 s5-0))) - (set! gp-0 (logclear gp-0 (ash 1 s5-0))) + (set! sub-change-time (logior sub-change-time (ash 1 s5-0))) + (set! sub-change-time (logclear sub-change-time (ash 1 s5-0))) ) ) ) @@ -372,7 +372,7 @@ (set! v1-0 #t) ) (when v1-0 - (set! (-> self subtitle-change-time) gp-0) + (set! (-> self subtitle-change-time) sub-change-time) (remove-from-process *part-engine* self) (add-connection *part-engine* self 13 self 3264 (new 'static 'vector :w 819200.0)) (add-connection *part-engine* self 14 self 3264 (new 'static 'vector :w 819200.0)) @@ -380,38 +380,38 @@ (add-connection *part-engine* self 5 self 3251 (new 'static 'vector :w 819200.0)) (add-connection *part-engine* self 6 self 3251 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 1) + (if (logtest? sub-change-time 1) (add-connection *part-engine* self 8 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 2) + (if (logtest? sub-change-time 2) (add-connection *part-engine* self 9 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 4) + (if (logtest? sub-change-time 4) (add-connection *part-engine* self 10 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 8) + (if (logtest? sub-change-time 8) (add-connection *part-engine* self 11 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 16) + (if (logtest? sub-change-time 16) (add-connection *part-engine* self 12 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 32) + (if (logtest? sub-change-time 32) (add-connection *part-engine* self 15 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 64) + (if (logtest? sub-change-time 64) (add-connection *part-engine* self 16 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 128) + (if (logtest? sub-change-time 128) (add-connection *part-engine* self 17 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 256) + (if (logtest? sub-change-time 256) (add-connection *part-engine* self 18 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 512) + (if (logtest? sub-change-time 512) (add-connection *part-engine* self 19 self 3252 (new 'static 'vector :w 819200.0)) ) (cond - ((logtest? gp-0 4096) + ((logtest? sub-change-time 4096) (add-connection *part-engine* self 4 self 3258 (new 'static 'vector :y 4096.0 :w 819200.0)) (add-connection *part-engine* self 4 self 3259 (new 'static 'vector :y 4096.0 :w 819200.0)) ) diff --git a/goal_src/jak2/levels/mars_tomb/tomb-water.gc b/goal_src/jak2/levels/mars_tomb/tomb-water.gc index dd305c39cb..c599bd2942 100644 --- a/goal_src/jak2/levels/mars_tomb/tomb-water.gc +++ b/goal_src/jak2/levels/mars_tomb/tomb-water.gc @@ -48,7 +48,10 @@ ) -(defskelgroup skel-tomb-door tomb-door 0 2 ((1 (meters 999999))) :bounds (static-spherem 4 4 0 7)) +(defskelgroup skel-tomb-door tomb-door tomb-door-lod0-jg tomb-door-idle-ja + ((tomb-door-lod0-mg (meters 999999))) + :bounds (static-spherem 4 4 0 7) + ) (defstate idle (tomb-door) :virtual #t @@ -149,6 +152,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-door ((obj tomb-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) (set! (-> s4-0 total-prims) (the-as uint 3)) @@ -222,8 +231,8 @@ ) -(defskelgroup skel-tomb-beetle-door tomb-beetle-door 0 2 - ((1 (meters 999999))) +(defskelgroup skel-tomb-beetle-door tomb-beetle-door tomb-beetle-door-lod0-jg tomb-beetle-door-idle-ja + ((tomb-beetle-door-lod0-mg (meters 999999))) :bounds (static-spherem 4 4 0 7) ) @@ -322,6 +331,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-beetle-door ((obj tomb-beetle-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) @@ -393,7 +408,10 @@ (none) ) -(defskelgroup skel-tomb-button tomb-button 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 2.5)) +(defskelgroup skel-tomb-button tomb-button tomb-button-lod0-jg tomb-button-idle-ja + ((tomb-button-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 2.5) + ) (deftype tomb-button (basebutton) () @@ -659,9 +677,9 @@ ;; WARN: Return type mismatch symbol vs none. (defmethod send-event! tomb-beetle-button ((obj tomb-beetle-button) (arg0 symbol)) "Prepares an [[event-message-block]] using the provided type to send an event to: - - the `notify-actor` - - every [[entity-actor]] in the `actor-group` array - @see [[entity-actor]]" +- the `notify-actor` +- every [[entity-actor]] in the `actor-group` array +@see [[entity-actor]]" (when arg0 (let ((a1-1 (new 'stack-no-clear 'event-message-block))) (set! (-> a1-1 from) (process->ppointer self)) @@ -714,8 +732,8 @@ (none) ) -(defskelgroup skel-tomb-move-swing-pole tomb-move-swing-pole 0 2 - ((1 (meters 999999))) +(defskelgroup skel-tomb-move-swing-pole tomb-move-swing-pole tomb-move-swing-pole-lod0-jg tomb-move-swing-pole-idle-ja + ((tomb-move-swing-pole-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 3.5) ) @@ -788,8 +806,8 @@ ) ) -(defskelgroup skel-tomb-simon-block tomb-plat-simon 0 3 - ((1 (meters 999999))) +(defskelgroup skel-tomb-simon-block tomb-plat-simon tomb-plat-simon-lod0-jg tomb-plat-simon-idle-ja + ((tomb-plat-simon-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 4) ) @@ -1053,6 +1071,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-plat-simon ((obj tomb-plat-simon) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) @@ -1488,8 +1512,8 @@ ) ;; WARN: Return type mismatch collide-shape vs none. -(defmethod base-plat-method-31 tomb-simon-block ((obj tomb-simon-block)) - "TODO - collision stuff" +(defmethod init-plat-collision! tomb-simon-block ((obj tomb-simon-block)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -1513,7 +1537,7 @@ ;; WARN: Return type mismatch object vs none. (defbehavior tomb-simon-block-init-by-other tomb-simon-block ((arg0 vector) (arg1 int) (arg2 int) (arg3 int) (arg4 int)) - (base-plat-method-31 self) + (init-plat-collision! self) (set! (-> self mask) (logior (process-mask platform) (-> self mask))) (set! (-> self root-override trans quad) (-> arg0 quad)) (set! (-> self base-height) (-> self root-override trans y)) @@ -1555,8 +1579,8 @@ ) -(defskelgroup skel-tomb-simon-button tomb-simon-button 0 3 - ((1 (meters 999999))) +(defskelgroup skel-tomb-simon-button tomb-simon-button tomb-simon-button-lod0-jg tomb-simon-button-open-ja + ((tomb-simon-button-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 5.5) ) @@ -1726,6 +1750,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-simon-button ((obj tomb-simon-button) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (with-pp (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 5) 0))) @@ -1848,7 +1878,10 @@ ) -(defskelgroup skel-tomb-vibe tomb-vibe 0 3 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 4)) +(defskelgroup skel-tomb-vibe tomb-vibe tomb-vibe-lod0-jg tomb-vibe-idle-ja + ((tomb-vibe-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 4) + ) (defstate get-pattern (tomb-vibe) :virtual #t @@ -2153,6 +2186,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-vibe ((obj tomb-vibe) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag) (sv-32 res-tag)) (with-pp (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) @@ -2522,8 +2561,8 @@ ) (let* ((s3-1 (vector-normalize! (vector-! (new 'stack-no-clear 'vector) arg1 arg0) 1.0)) (s2-1 (vector-normalize! (vector-! (new 'stack-no-clear 'vector) arg0 arg1) 1.0)) - (s3-2 (forward-up-nopitch->quaternion (the-as quaternion (new 'stack-no-clear 'vector)) s3-1 *up-vector*)) - (s1-0 (forward-up-nopitch->quaternion (the-as quaternion (new 'stack-no-clear 'vector)) s2-1 *up-vector*)) + (s3-2 (forward-up-nopitch->quaternion (new 'stack-no-clear 'quaternion) s3-1 *up-vector*)) + (s1-0 (forward-up-nopitch->quaternion (new 'stack-no-clear 'quaternion) s2-1 *up-vector*)) (s2-2 (quaternion->matrix (new 'stack-no-clear 'matrix) s3-2)) (s3-3 (quaternion->matrix (new 'stack-no-clear 'matrix) s1-0)) ) @@ -2545,6 +2584,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-water-trap ((obj tomb-water-trap) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (let ((a1-3 (new 'stack-no-clear 'sync-info-params))) @@ -2552,7 +2597,7 @@ (if #t (set! v1-1 (logior v1-1 1)) ) - (set! (-> a1-3 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-3 sync-type) 'sync-linear) (set! (-> a1-3 sync-flags) (the-as sync-flags v1-1)) ) (set! (-> a1-3 entity) arg0) @@ -2736,6 +2781,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-smash-door ((obj tomb-smash-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) (set! (-> s4-0 total-prims) (the-as uint 3)) diff --git a/goal_src/jak2/levels/nest/boss/nestb-scenes.gc b/goal_src/jak2/levels/nest/boss/nestb-scenes.gc index a676b57a8e..8ae7836eb3 100644 --- a/goal_src/jak2/levels/nest/boss/nestb-scenes.gc +++ b/goal_src/jak2/levels/nest/boss/nestb-scenes.gc @@ -1691,6 +1691,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! nest-gun-parts ((obj nest-gun-parts) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -1741,6 +1747,12 @@ ) (defmethod init-from-entity! nest-unbroken-rocks ((obj nest-unbroken-rocks) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/goal_src/jak2/levels/nest/nest-scenes.gc b/goal_src/jak2/levels/nest/nest-scenes.gc index 96a3632bbb..c518317ea6 100644 --- a/goal_src/jak2/levels/nest/nest-scenes.gc +++ b/goal_src/jak2/levels/nest/nest-scenes.gc @@ -83,23 +83,23 @@ ) :exit (behavior () (dotimes (v1-0 5) - (let ((a0-2 (-> self lightning v1-0)) - (a1-0 3) + (let ((control (-> self lightning v1-0)) + (mode 3) ) - (let ((a2-1 (!= a1-0 (-> a0-2 state mode)))) - (case a1-0 + (let ((control-mode (!= mode (-> control state mode)))) + (case mode ((3) - (if a2-1 - (set! (-> a0-2 state counter) 0.0) + (if control-mode + (set! (-> control state counter) 0.0) ) ) ((1) - (set! (-> a0-2 state start-color) (-> a0-2 spec start-color)) - (set! (-> a0-2 state end-color) (-> a0-2 spec end-color)) + (set! (-> control state start-color) (-> control spec start-color)) + (set! (-> control state end-color) (-> control spec end-color)) ) ) ) - (set! (-> a0-2 state mode) (the-as lightning-mode a1-0)) + (set! (-> control state mode) (the-as lightning-mode mode)) ) ) (none) @@ -173,9 +173,9 @@ ;; WARN: Return type mismatch process-drawable vs canyon-lightning-thingy. (defmethod relocate canyon-lightning-thingy ((obj canyon-lightning-thingy) (arg0 int)) - (dotimes (v1-0 5) - (if (nonzero? (-> obj lightning v1-0)) - (&+! (-> obj lightning v1-0) arg0) + (dotimes (index 5) + (if (nonzero? (-> obj lightning index)) + (&+! (-> obj lightning index) arg0) ) ) (the-as canyon-lightning-thingy ((method-of-type process-drawable relocate) obj arg0)) diff --git a/goal_src/jak2/levels/palace/explore/palent-part.gc b/goal_src/jak2/levels/palace/explore/palent-part.gc index d8e25f4a90..7a3bfc08e2 100644 --- a/goal_src/jak2/levels/palace/explore/palent-part.gc +++ b/goal_src/jak2/levels/palace/explore/palent-part.gc @@ -355,12 +355,14 @@ ) (defun palent-deactivate () + "Sets [[palshaft.bigmap-id]] to `20`" (set! (-> palshaft bigmap-id) (the-as uint 20)) 0 (none) ) (defun palent-activate () + "Sets [[palshaft.bigmap-id]] to `12`" (set! (-> palshaft bigmap-id) (the-as uint 12)) 0 (none) diff --git a/goal_src/jak2/levels/palace/roof/palboss-scenes.gc b/goal_src/jak2/levels/palace/roof/palboss-scenes.gc index 3cf6d2fa9e..5bb5917706 100644 --- a/goal_src/jak2/levels/palace/roof/palboss-scenes.gc +++ b/goal_src/jak2/levels/palace/roof/palboss-scenes.gc @@ -7,44 +7,44 @@ ;; DECOMP BEGINS -(defskelgroup skel-squid-break-pod squid-break 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-squid-break-pod squid-break squid-break-pod-lod0-jg -1 + ((squid-break-pod-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 4) :origin-joint-index 3 ) -(defskelgroup skel-squid-break-a squid-break 4 -1 - ((5 (meters 999999))) +(defskelgroup skel-squid-break-a squid-break squid-break-a-lod0-jg -1 + ((squid-break-a-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 500) :origin-joint-index 3 ) -(defskelgroup skel-squid-break-b squid-break 8 -1 - ((9 (meters 999999))) +(defskelgroup skel-squid-break-b squid-break squid-break-b-lod0-jg -1 + ((squid-break-b-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 500) :origin-joint-index 3 ) -(defskelgroup skel-squid-break-c squid-break 12 -1 - ((13 (meters 999999))) +(defskelgroup skel-squid-break-c squid-break squid-break-c-lod0-jg -1 + ((squid-break-c-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 500) :origin-joint-index 3 ) -(defskelgroup skel-squid-break-d squid-break 16 -1 - ((17 (meters 999999))) +(defskelgroup skel-squid-break-d squid-break squid-break-d-lod0-jg -1 + ((squid-break-d-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 500) :origin-joint-index 3 ) -(defskelgroup skel-squid-break-e squid-break 20 -1 - ((21 (meters 999999))) +(defskelgroup skel-squid-break-e squid-break squid-break-e-lod0-jg -1 + ((squid-break-e-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 500) :origin-joint-index 3 ) -(defskelgroup skel-squid-break-tentacle squid-break 24 -1 - ((25 (meters 999999))) +(defskelgroup skel-squid-break-tentacle squid-break squid-break-tentacle-lod0-jg -1 + ((squid-break-tentacle-lod0-mg (meters 999999))) :bounds (static-spherem 5 0 0 11) :origin-joint-index 3 ) @@ -106,7 +106,7 @@ 4792 (new 'static 'vector :x -5439.488 :y -1794.048 :z 11444.224 :w 819200.0) ) - (if (logtest? gp-0 (elevator-status elevator-status-0)) + (if (logtest? gp-0 (elevator-status waiting-to-descend)) (add-connection *part-engine* self @@ -116,7 +116,7 @@ (new 'static 'vector :x -4128.768 :y 2355.2 :z 3653.632 :w 819200.0) ) ) - (if (logtest? gp-0 (elevator-status elevator-status-1)) + (if (logtest? gp-0 (elevator-status waiting-to-ascend)) (add-connection *part-engine* self @@ -772,7 +772,7 @@ 4792 (new 'static 'vector :x -5439.488 :y -1794.048 :z 11444.224 :w 819200.0) ) - (if (logtest? gp-0 (elevator-status elevator-status-0)) + (if (logtest? gp-0 (elevator-status waiting-to-descend)) (add-connection *part-engine* self @@ -782,7 +782,7 @@ (new 'static 'vector :x -4128.768 :y 2355.2 :z 3653.632 :w 819200.0) ) ) - (if (logtest? gp-0 (elevator-status elevator-status-1)) + (if (logtest? gp-0 (elevator-status waiting-to-ascend)) (add-connection *part-engine* self diff --git a/goal_src/jak2/levels/palace/roof/palroof-part.gc b/goal_src/jak2/levels/palace/roof/palroof-part.gc index 6067a17f04..559ece0c96 100644 --- a/goal_src/jak2/levels/palace/roof/palroof-part.gc +++ b/goal_src/jak2/levels/palace/roof/palroof-part.gc @@ -201,6 +201,7 @@ ) (defun check-drop-level-palroof-drop-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "TODO" (when (< (-> arg2 vector 0 y) (-> arg1 user-float)) (let ((s3-0 (new 'stack-no-clear 'vector))) (sp-kill-particle arg0 arg1) @@ -441,6 +442,7 @@ ) (defun palroof-deactivate () + "Sets [[palshaft.bigmap-id]] to `11` and [[*math-camera*.f]] to `20,000` meters" (set! (-> palshaft bigmap-id) (the-as uint 20)) (set! (-> *math-camera* f) (meters 10000)) 0 @@ -448,6 +450,7 @@ ) (defun palroof-activate () + "Sets [[palshaft.bigmap-id]] to `20` and [[*math-camera*.f]] to `10,000` meters" (set! (-> palshaft bigmap-id) (the-as uint 11)) (set! (-> *math-camera* f) (meters 20000)) 0 diff --git a/goal_src/jak2/levels/palace/shaft/palshaft-part.gc b/goal_src/jak2/levels/palace/shaft/palshaft-part.gc index 7c24264d0c..f000ffabee 100644 --- a/goal_src/jak2/levels/palace/shaft/palshaft-part.gc +++ b/goal_src/jak2/levels/palace/shaft/palshaft-part.gc @@ -748,6 +748,7 @@ ) (defun palshaft-deactivate () + "Sets [[palshaft.bigmap-id]] to `20`" (set! (-> palshaft bigmap-id) (the-as uint 20)) 0 (none) diff --git a/goal_src/jak2/levels/palace/throne_room/throne-part.gc b/goal_src/jak2/levels/palace/throne_room/throne-part.gc index e2422c8066..39b66e5dce 100644 --- a/goal_src/jak2/levels/palace/throne_room/throne-part.gc +++ b/goal_src/jak2/levels/palace/throne_room/throne-part.gc @@ -410,12 +410,14 @@ ) (defun throne-deactivate () + "Sets [[*math-camera*.f]] to `10,000` meters" (set! (-> *math-camera* f) (meters 10000)) 0 (none) ) (defun throne-activate () + "Sets [[*math-camera*.f]] to `20,000` meters" (set! (-> *math-camera* f) (meters 20000)) 0 (none) diff --git a/goal_src/jak2/levels/ruins/breakable-wall.gc b/goal_src/jak2/levels/ruins/breakable-wall.gc index e71b60a3be..d513856ad0 100644 --- a/goal_src/jak2/levels/ruins/breakable-wall.gc +++ b/goal_src/jak2/levels/ruins/breakable-wall.gc @@ -7,33 +7,51 @@ ;; DECOMP BEGINS -(defskelgroup skel-ruins-breakable-wall-1 ruins-breakable-wall 0 4 - ((2 (meters 20)) (3 (meters 40)) (1 (meters 999999))) +(defskelgroup skel-ruins-breakable-wall-1 ruins-breakable-wall ruins-breakable-wall-1-lod0-jg ruins-breakable-wall-1-idle-ja + ((ruins-breakable-wall-1-lod1-mg (meters 20)) + (ruins-breakable-wall-1-lod2-mg (meters 40)) + (ruins-breakable-wall-1-lod0-mg (meters 999999)) + ) :bounds (static-spherem 0.3 5 0 8.8) ) -(defskelgroup skel-ruins-breakable-wall-2 ruins-breakable-wall 9 13 - ((11 (meters 20)) (12 (meters 40)) (10 (meters 999999))) +(defskelgroup skel-ruins-breakable-wall-2 ruins-breakable-wall ruins-breakable-wall-2-lod0-jg ruins-breakable-wall-2-idle-ja + ((ruins-breakable-wall-2-lod1-mg (meters 20)) + (ruins-breakable-wall-2-lod2-mg (meters 40)) + (ruins-breakable-wall-2-lod0-mg (meters 999999)) + ) :bounds (static-spherem 0.3 5 0 8.8) ) -(defskelgroup skel-ruins-breakable-wall-3 ruins-breakable-wall 18 22 - ((20 (meters 20)) (21 (meters 40)) (19 (meters 999999))) +(defskelgroup skel-ruins-breakable-wall-3 ruins-breakable-wall ruins-breakable-wall-3-lod0-jg ruins-breakable-wall-3-idle-ja + ((ruins-breakable-wall-3-lod1-mg (meters 20)) + (ruins-breakable-wall-3-lod2-mg (meters 40)) + (ruins-breakable-wall-3-lod0-mg (meters 999999)) + ) :bounds (static-spherem 0.3 5 0 8.8) ) -(defskelgroup skel-ruins-breakable-wall-4 ruins-breakable-wall 27 29 - ((28 (meters 20)) (28 (meters 40)) (28 (meters 999999))) +(defskelgroup skel-ruins-breakable-wall-4 ruins-breakable-wall ruins-breakable-wall-4-lod0-jg ruins-breakable-wall-4-idle-ja + ((ruins-breakable-wall-4-lod0-mg (meters 20)) + (ruins-breakable-wall-4-lod0-mg (meters 40)) + (ruins-breakable-wall-4-lod0-mg (meters 999999)) + ) :bounds (static-spherem 0 6 0 10) ) -(defskelgroup skel-ruins-breakable-wall-5 ruins-breakable-wall 32 34 - ((33 (meters 20)) (33 (meters 40)) (33 (meters 999999))) +(defskelgroup skel-ruins-breakable-wall-5 ruins-breakable-wall ruins-breakable-wall-5-lod0-jg ruins-breakable-wall-5-idle-ja + ((ruins-breakable-wall-5-lod0-mg (meters 20)) + (ruins-breakable-wall-5-lod0-mg (meters 40)) + (ruins-breakable-wall-5-lod0-mg (meters 999999)) + ) :bounds (static-spherem 0 5 0 9.5) ) -(defskelgroup skel-ruins-breakable-wall-6 ruins-breakable-wall 37 39 - ((38 (meters 20)) (38 (meters 40)) (38 (meters 999999))) +(defskelgroup skel-ruins-breakable-wall-6 ruins-breakable-wall ruins-breakable-wall-6-lod0-jg ruins-breakable-wall-6-idle-ja + ((ruins-breakable-wall-6-lod0-mg (meters 20)) + (ruins-breakable-wall-6-lod0-mg (meters 40)) + (ruins-breakable-wall-6-lod0-mg (meters 999999)) + ) :bounds (static-spherem 0 6 0 9.5) ) @@ -405,6 +423,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! ruins-breakable-wall ((obj ruins-breakable-wall) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) (set! (-> obj side) #f) diff --git a/goal_src/jak2/levels/ruins/mechtest-obs.gc b/goal_src/jak2/levels/ruins/mechtest-obs.gc index dca8248cda..15b67c2ef3 100644 --- a/goal_src/jak2/levels/ruins/mechtest-obs.gc +++ b/goal_src/jak2/levels/ruins/mechtest-obs.gc @@ -465,10 +465,19 @@ ) -(defskelgroup skel-throwblock throwblock 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 1.5 0 2.7)) +(defskelgroup skel-throwblock throwblock throwblock-lod0-jg throwblock-idle-ja + ((throwblock-lod0-mg (meters 999999))) + :bounds (static-spherem 0 1.5 0 2.7) + ) ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! throwblock ((obj throwblock) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) @@ -535,10 +544,19 @@ ) -(defskelgroup skel-pushblock pushblock 0 3 ((1 (meters 999999))) :bounds (static-spherem 0 2 0 4)) +(defskelgroup skel-pushblock pushblock pushblock-lod0-jg pushblock-idle-ja + ((pushblock-lod0-mg (meters 999999))) + :bounds (static-spherem 0 2 0 4) + ) ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! pushblock ((obj pushblock) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) diff --git a/goal_src/jak2/levels/ruins/pillar-collapse.gc b/goal_src/jak2/levels/ruins/pillar-collapse.gc index 6d06d5bb0c..1725ffd37e 100644 --- a/goal_src/jak2/levels/ruins/pillar-collapse.gc +++ b/goal_src/jak2/levels/ruins/pillar-collapse.gc @@ -31,18 +31,18 @@ ) -(defskelgroup skel-ruins-pillar-collapse-1 ruins-pillar-collapse 0 2 - ((1 (meters 999999))) +(defskelgroup skel-ruins-pillar-collapse-1 ruins-pillar-collapse ruins-pillar-collapse-lod0-jg ruins-pillar-collapse-1-idle-ja + ((ruins-pillar-collapse-lod0-mg (meters 999999))) :bounds (static-spherem 0 12 16 30) ) -(defskelgroup skel-ruins-pillar-collapse-2 ruins-pillar-collapse 0 5 - ((1 (meters 999999))) +(defskelgroup skel-ruins-pillar-collapse-2 ruins-pillar-collapse ruins-pillar-collapse-lod0-jg ruins-pillar-collapse-2-idle-ja + ((ruins-pillar-collapse-lod0-mg (meters 999999))) :bounds (static-spherem 0 12 0 17) ) -(defskelgroup skel-ruins-pillar-collapse-3 ruins-pillar-collapse 0 8 - ((1 (meters 999999))) +(defskelgroup skel-ruins-pillar-collapse-3 ruins-pillar-collapse ruins-pillar-collapse-lod0-jg ruins-pillar-collapse-3-idle-ja + ((ruins-pillar-collapse-lod0-mg (meters 999999))) :bounds (static-spherem 0 12 0 17) ) @@ -259,6 +259,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! ruins-pillar-collapse ((obj ruins-pillar-collapse) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 symbol) (sv-48 type) (sv-64 collide-shape-moving)) (stack-size-set! (-> obj main-thread) 512) (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) diff --git a/goal_src/jak2/levels/ruins/ruins-obs.gc b/goal_src/jak2/levels/ruins/ruins-obs.gc index 747da18073..cd1484d28b 100644 --- a/goal_src/jak2/levels/ruins/ruins-obs.gc +++ b/goal_src/jak2/levels/ruins/ruins-obs.gc @@ -17,8 +17,8 @@ ) -(defskelgroup skel-sinking-plat sinking-plat 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-sinking-plat sinking-plat sinking-plat-lod0-jg sinking-plat-idle-ja + ((sinking-plat-lod0-mg (meters 20)) (sinking-plat-lod1-mg (meters 999999))) :bounds (static-spherem 0 1 0 4) ) @@ -154,7 +154,10 @@ ) -(defskelgroup skel-beam beam 0 -1 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 5)) +(defskelgroup skel-beam beam beam-lod0-jg -1 + ((beam-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 5) + ) (defstate idle (beam) :virtual #t @@ -193,6 +196,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! beam ((obj beam) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -223,12 +232,15 @@ ) -(defskelgroup skel-ruins-bridge-1 ruins-bridge 0 3 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 7)) +(defskelgroup skel-ruins-bridge-1 ruins-bridge ruins-bridge-1-lod0-jg ruins-bridge-1-idle-ja + ((ruins-bridge-1-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 7) + ) (defmethod start-bouncing! ruins-bridge ((obj ruins-bridge)) "Sets `bouncing` to [[#t]] and sets up the clock to periodically bounce - and translate the platform via the `smush` - @see [[smush-control]]" +and translate the platform via the `smush` +@see [[smush-control]]" (logclear! (-> obj mask) (process-mask sleep)) (logclear! (-> obj mask) (process-mask sleep-code)) 0 @@ -288,6 +300,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! ruins-bridge ((obj ruins-bridge) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -366,58 +384,58 @@ ) -(defskelgroup skel-ruins-drop-plat-a-1 ruins-drop-plat 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-ruins-drop-plat-a-1 ruins-drop-plat ruins-drop-plat-a-lod0-jg ruins-drop-plat-a-1-idle-ja + ((ruins-drop-plat-a-lod0-mg (meters 20)) (ruins-drop-plat-a-lod1-mg (meters 999999))) :bounds (static-spherem 2.5 -10 2.5 12) :origin-joint-index 3 ) -(defskelgroup skel-ruins-drop-plat-a-2 ruins-drop-plat 0 6 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-ruins-drop-plat-a-2 ruins-drop-plat ruins-drop-plat-a-lod0-jg ruins-drop-plat-a-2-idle-ja + ((ruins-drop-plat-a-lod0-mg (meters 20)) (ruins-drop-plat-a-lod1-mg (meters 999999))) :bounds (static-spherem 2.5 -10 2.5 12) :origin-joint-index 3 ) -(defskelgroup skel-ruins-drop-plat-a-3 ruins-drop-plat 0 9 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-ruins-drop-plat-a-3 ruins-drop-plat ruins-drop-plat-a-lod0-jg ruins-drop-plat-a-3-idle-ja + ((ruins-drop-plat-a-lod0-mg (meters 20)) (ruins-drop-plat-a-lod1-mg (meters 999999))) :bounds (static-spherem 2.5 -10 2.5 12) :origin-joint-index 3 ) -(defskelgroup skel-ruins-drop-plat-b-1 ruins-drop-plat 12 15 - ((13 (meters 20)) (14 (meters 999999))) +(defskelgroup skel-ruins-drop-plat-b-1 ruins-drop-plat ruins-drop-plat-b-lod0-jg ruins-drop-plat-b-1-idle-ja + ((ruins-drop-plat-b-lod0-mg (meters 20)) (ruins-drop-plat-b-lod1-mg (meters 999999))) :bounds (static-spherem 2.5 -10 2.5 12) :origin-joint-index 3 ) -(defskelgroup skel-ruins-drop-plat-b-2 ruins-drop-plat 12 18 - ((13 (meters 20)) (14 (meters 999999))) +(defskelgroup skel-ruins-drop-plat-b-2 ruins-drop-plat ruins-drop-plat-b-lod0-jg ruins-drop-plat-b-2-idle-ja + ((ruins-drop-plat-b-lod0-mg (meters 20)) (ruins-drop-plat-b-lod1-mg (meters 999999))) :bounds (static-spherem 2.5 -10 2.5 12) :origin-joint-index 3 ) -(defskelgroup skel-ruins-drop-plat-c-1 ruins-drop-plat 21 24 - ((22 (meters 20)) (23 (meters 999999))) +(defskelgroup skel-ruins-drop-plat-c-1 ruins-drop-plat ruins-drop-plat-c-lod0-jg ruins-drop-plat-c-1-idle-ja + ((ruins-drop-plat-c-lod0-mg (meters 20)) (ruins-drop-plat-c-lod1-mg (meters 999999))) :bounds (static-spherem 2.5 -10 2.5 12) :origin-joint-index 3 ) -(defskelgroup skel-ruins-drop-plat-c-2 ruins-drop-plat 21 27 - ((22 (meters 20)) (23 (meters 999999))) +(defskelgroup skel-ruins-drop-plat-c-2 ruins-drop-plat ruins-drop-plat-c-lod0-jg ruins-drop-plat-c-2-idle-ja + ((ruins-drop-plat-c-lod0-mg (meters 20)) (ruins-drop-plat-c-lod1-mg (meters 999999))) :bounds (static-spherem 2.5 -10 2.5 12) :origin-joint-index 3 ) -(defskelgroup skel-ruins-drop-plat-c-3 ruins-drop-plat 21 30 - ((22 (meters 20)) (23 (meters 999999))) +(defskelgroup skel-ruins-drop-plat-c-3 ruins-drop-plat ruins-drop-plat-c-lod0-jg ruins-drop-plat-c-3-idle-ja + ((ruins-drop-plat-c-lod0-mg (meters 20)) (ruins-drop-plat-c-lod1-mg (meters 999999))) :bounds (static-spherem 2.5 -10 2.5 12) :origin-joint-index 3 ) (defmethod start-bouncing! ruins-drop-plat ((obj ruins-drop-plat)) "Sets `bouncing` to [[#t]] and sets up the clock to periodically bounce - and translate the platform via the `smush` - @see [[smush-control]]" +and translate the platform via the `smush` +@see [[smush-control]]" (activate! (-> obj smush) -1.0 60 150 1.0 1.0 (-> self clock)) (set! (-> obj bounce-time) (-> self clock frame-counter)) (set! (-> obj bouncing) #t) @@ -509,6 +527,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! ruins-drop-plat ((obj ruins-drop-plat) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) diff --git a/goal_src/jak2/levels/ruins/ruins-part.gc b/goal_src/jak2/levels/ruins/ruins-part.gc index be5e60116a..fa51c3ed04 100644 --- a/goal_src/jak2/levels/ruins/ruins-part.gc +++ b/goal_src/jak2/levels/ruins/ruins-part.gc @@ -141,17 +141,18 @@ ) (defun check-drop-level-ruins-rubble ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "TODO docs" (let ((f30-0 (-> arg1 key origin trans y))) (when (< (-> arg2 vector 0 y) f30-0) - (let ((gp-0 (new 'stack-no-clear 'vector))) + (let ((vec (new 'stack-no-clear 'vector))) (sp-kill-particle arg0 arg1) - (set-vector! gp-0 (-> arg2 vector 0 x) f30-0 (-> arg2 vector 0 z) 1.0) + (set-vector! vec (-> arg2 vector 0 x) f30-0 (-> arg2 vector 0 z) 1.0) (let ((t9-1 sp-launch-particles-var) (a0-2 *sp-particle-system-2d*) (a1-1 (-> *part-id-table* 1255)) (a2-1 *launch-matrix*) ) - (set! (-> a2-1 trans quad) (-> gp-0 quad)) + (set! (-> a2-1 trans quad) (-> vec quad)) (t9-1 a0-2 a1-1 a2-1 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-2 sp-launch-particles-var) @@ -159,7 +160,7 @@ (a1-2 (-> *part-id-table* 1256)) (a2-2 *launch-matrix*) ) - (set! (-> a2-2 trans quad) (-> gp-0 quad)) + (set! (-> a2-2 trans quad) (-> vec quad)) (t9-2 a0-3 a1-2 a2-2 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-3 sp-launch-particles-var) @@ -167,7 +168,7 @@ (a1-3 (-> *part-id-table* 1257)) (a2-3 *launch-matrix*) ) - (set! (-> a2-3 trans quad) (-> gp-0 quad)) + (set! (-> a2-3 trans quad) (-> vec quad)) (t9-3 a0-4 a1-3 a2-3 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) ) @@ -719,6 +720,8 @@ ) (defun ruins-bird-bob-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "Move the bird particles up and down, on a sinusoidal period with a wavelength of 300 frames +TODO - check argument types / what birds?" (with-pp (set! (-> arg2 vector 0 y) (+ (-> arg1 key proc root trans y) @@ -749,6 +752,7 @@ ) (defun sparticle-ruins-bird-moon ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "TODO - investigate, what even is this?" (set! (-> arg2 vector 1 z) (the float (sar (shl (the int (+ -16384.0 (-> arg1 omega))) 48) 48))) 0 (none) @@ -1153,36 +1157,38 @@ :init-specs ((sp-rnd-flt spt-fade-a -0.53333336 -0.53333336 1.0)) ) -(defun check-drop-level-ruins-tower-userdata-nosplat ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) - (when (< (-> arg2 vector 0 y) (-> arg1 user-float)) - (let ((s3-0 (new 'stack-no-clear 'vector))) +(defun check-drop-level-ruins-tower-userdata-nosplat ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector)) + "TODO - docs" + (when (< (-> arg2 y) (-> arg1 user-float)) + (let ((vec (new 'stack-no-clear 'vector))) (sp-kill-particle arg0 arg1) - (set! (-> s3-0 x) (-> arg2 vector 0 x)) - (set! (-> s3-0 y) (-> arg1 user-float)) - (set! (-> s3-0 z) (-> arg2 vector 0 z)) - (set! (-> s3-0 w) 1.0) + (set! (-> vec x) (-> arg2 x)) + (set! (-> vec y) (-> arg1 user-float)) + (set! (-> vec z) (-> arg2 z)) + (set! (-> vec w) 1.0) ) ) - (sparticle-motion-blur arg0 arg1 (the-as vector arg2)) + (sparticle-motion-blur arg0 arg1 arg2) (none) ) -(defun check-drop-level-ruins-tower-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) - (when (< (-> arg2 vector 0 y) (-> arg1 user-float)) - (let ((s3-0 (new 'stack-no-clear 'vector))) +(defun check-drop-level-ruins-tower-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector)) + "TODO - docs" + (when (< (-> arg2 y) (-> arg1 user-float)) + (let ((vec (new 'stack-no-clear 'vector))) (sp-kill-particle arg0 arg1) - (set-vector! s3-0 (-> arg2 vector 0 x) (-> arg1 user-float) (-> arg2 vector 0 z) 1.0) + (set-vector! vec (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0) (let ((t9-1 sp-launch-particles-var) (a0-3 *sp-particle-system-3d*) (a1-2 (-> *part-id-table* 1291)) (a2-1 *launch-matrix*) ) - (set! (-> a2-1 trans quad) (-> s3-0 quad)) + (set! (-> a2-1 trans quad) (-> vec quad)) (t9-1 a0-3 a1-2 a2-1 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) ) ) - (sparticle-motion-blur arg0 arg1 (the-as vector arg2)) + (sparticle-motion-blur arg0 arg1 arg2) (none) ) diff --git a/goal_src/jak2/levels/ruins/ruins-scenes.gc b/goal_src/jak2/levels/ruins/ruins-scenes.gc index 723b45a784..16f6975516 100644 --- a/goal_src/jak2/levels/ruins/ruins-scenes.gc +++ b/goal_src/jak2/levels/ruins/ruins-scenes.gc @@ -64,44 +64,44 @@ :origin-joint-index 26 ) -(defskelgroup skel-ruins-tower-a ruins-tower-a 0 2 - ((1 (meters 999999))) +(defskelgroup skel-ruins-tower-a ruins-tower-a ruins-tower-a-lod0-jg ruins-tower-a-idle-ja + ((ruins-tower-a-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 1000) :origin-joint-index 49 ) -(defskelgroup skel-ruins-tower-b ruins-tower-b 0 2 - ((1 (meters 999999))) +(defskelgroup skel-ruins-tower-b ruins-tower-b ruins-tower-b-lod0-jg ruins-tower-b-idle-ja + ((ruins-tower-b-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 100) :origin-joint-index 46 ) -(defskelgroup skel-ruins-tower-c ruins-tower-c 0 2 - ((1 (meters 999999))) +(defskelgroup skel-ruins-tower-c ruins-tower-c ruins-tower-c-lod0-jg ruins-tower-c-idle-ja + ((ruins-tower-c-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 100) :origin-joint-index 25 ) -(defskelgroup skel-ruins-tower-d ruins-tower-d 0 2 - ((1 (meters 999999))) +(defskelgroup skel-ruins-tower-d ruins-tower-d ruins-tower-d-lod0-jg ruins-tower-d-idle-ja + ((ruins-tower-d-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 100) :origin-joint-index 9 ) -(defskelgroup skel-ruins-tower-e ruins-tower-e 0 2 - ((1 (meters 999999))) +(defskelgroup skel-ruins-tower-e ruins-tower-e ruins-tower-e-lod0-jg ruins-tower-e-idle-ja + ((ruins-tower-e-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 100) :origin-joint-index 53 ) -(defskelgroup skel-ruins-tower-f ruins-tower-f 0 2 - ((1 (meters 999999))) +(defskelgroup skel-ruins-tower-f ruins-tower-f ruins-tower-f-lod0-jg ruins-tower-f-idle-ja + ((ruins-tower-f-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 100) :origin-joint-index 3 ) -(defskelgroup skel-ruins-tower-rp ruins-tower-rp 0 2 - ((1 (meters 999999))) +(defskelgroup skel-ruins-tower-rp ruins-tower-rp ruins-tower-rp-lod0-jg ruins-tower-rp-idle-ja + ((ruins-tower-rp-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 1000) :origin-joint-index 4 ) @@ -112,14 +112,24 @@ :origin-joint-index 4 ) -(defun ruins-slide-sparks ((arg0 object) (arg1 vector)) - (let ((t9-0 sp-launch-particles-var) - (a0-1 *sp-particle-system-2d*) - (v1-1 (-> *part-id-table* 1247)) - (a2-0 *launch-matrix*) +(defun ruins-slide-sparks ((arg0 object) (position vector)) + "Generates simple sparks (2D particles) at the location specified. This is used in the cutscene. +@param position The position to render the sparks at +TODO - first arg type?" + (let ((launch-func sp-launch-particles-var) + (2d-sys *sp-particle-system-2d*) + (sp-launcher (-> *part-id-table* 1247)) + (matrix *launch-matrix*) ) - (set! (-> a2-0 trans quad) (-> arg1 quad)) - (t9-0 a0-1 v1-1 a2-0 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) + (set! (-> matrix trans quad) (-> position quad)) + (launch-func + 2d-sys + sp-launcher + matrix + (the-as sparticle-launch-state #f) + (the-as sparticle-launch-control #f) + 1.0 + ) ) 0 (none) @@ -1312,6 +1322,8 @@ ) (deftype flag (process-drawable) + "The flag in the ruins mission. +The scale will be linearly-interpolated based on the distance from the camera" () :heap-base #x50 :method-count-assert 21 @@ -1328,8 +1340,9 @@ :code (the-as (function none :behavior flag) sleep-code) :post (behavior () (ja :num! (loop!)) - (let ((f0-1 (lerp-scale 1.0 2.5 (vector-vector-distance (camera-pos) (-> self root trans)) 81920.0 901120.0))) - (set-vector! (-> self root scale) f0-1 f0-1 f0-1 1.0) + (let ((flag-scale (lerp-scale 1.0 2.5 (vector-vector-distance (camera-pos) (-> self root trans)) 81920.0 901120.0)) + ) + (set-vector! (-> self root scale) flag-scale flag-scale flag-scale 1.0) ) (set! (-> *part-id-table* 267 init-specs 4 initial-valuef) 24576.0) (set! (-> *part-id-table* 270 init-specs 3 initial-valuef) 65536.0) @@ -1346,6 +1359,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! flag ((obj flag) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1361,6 +1380,8 @@ ) (deftype ruins-precipice (process-drawable) + "The edge of the ruins tower that the flag stands on +Touching it flips the `play?` field which will trigger the cutscene" ((play? symbol :offset-assert 200) ) :heap-base #x50 @@ -1434,22 +1455,28 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! ruins-precipice ((obj ruins-precipice) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-2 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 2048.0 0.0 2048.0 49152.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) + (let ((cshape-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> cshape-mesh prim-core collide-as) (collide-spec obstacle)) + (set! (-> cshape-mesh prim-core collide-with) (collide-spec jak player-list)) + (set! (-> cshape-mesh prim-core action) (collide-action solid)) + (set! (-> cshape-mesh transform-index) 3) + (set-vector! (-> cshape-mesh local-sphere) 2048.0 0.0 2048.0 49152.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) cshape-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((v1-5 (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> v1-5 prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> v1-5 prim-core collide-with)) ) - (set! (-> obj root) s4-0) + (set! (-> obj root) cshape) ) (process-drawable-from-entity! obj arg0) (vector+! (-> obj root trans) (-> obj root trans) (new 'static 'vector :z 28672.0 :w 1.0)) diff --git a/goal_src/jak2/levels/sewer/sewer-obs.gc b/goal_src/jak2/levels/sewer/sewer-obs.gc index a9cfa6c313..17e6d54d5e 100644 --- a/goal_src/jak2/levels/sewer/sewer-obs.gc +++ b/goal_src/jak2/levels/sewer/sewer-obs.gc @@ -69,8 +69,8 @@ ) -(defskelgroup skel-sew-single-blade sew-single-blade 0 2 - ((1 (meters 999999))) +(defskelgroup skel-sew-single-blade sew-single-blade sew-single-blade-lod0-jg sew-single-blade-idle-ja + ((sew-single-blade-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 4 5.5) ) @@ -135,6 +135,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-single-blade ((obj sew-single-blade) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -201,8 +207,8 @@ ) -(defskelgroup skel-sew-tri-blade sew-tri-blade 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-sew-tri-blade sew-tri-blade sew-tri-blade-lod0-jg sew-tri-blade-idle-ja + ((sew-tri-blade-lod0-mg (meters 20)) (sew-tri-blade-lod1-mg (meters 999999))) :bounds (static-spherem 0 2.5 0 9) ) @@ -328,6 +334,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-tri-blade ((obj sew-tri-blade) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (with-pp (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) @@ -417,8 +429,8 @@ ) -(defskelgroup skel-sew-arm-blade sew-arm-blade 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-sew-arm-blade sew-arm-blade sew-arm-blade-lod0-jg sew-arm-blade-idle-ja + ((sew-arm-blade-lod0-mg (meters 20)) (sew-arm-blade-lod1-mg (meters 999999))) :bounds (static-spherem 0 -6 0 7) ) @@ -475,6 +487,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-arm-blade ((obj sew-arm-blade) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -535,8 +553,8 @@ ) -(defskelgroup skel-sew-multi-blade sew-multi-blade 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-sew-multi-blade sew-multi-blade sew-multi-blade-lod0-jg sew-multi-blade-idle-ja + ((sew-multi-blade-lod0-mg (meters 20)) (sew-multi-blade-lod1-mg (meters 999999))) :bounds (static-spherem 18 0 0 22) ) @@ -601,6 +619,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-multi-blade ((obj sew-multi-blade) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -665,8 +689,8 @@ ) -(defskelgroup skel-sew-twist-blade sew-twist-blade 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-sew-twist-blade sew-twist-blade sew-twist-blade-lod0-jg sew-twist-blade-idle-ja + ((sew-twist-blade-lod0-mg (meters 20)) (sew-twist-blade-lod1-mg (meters 999999))) :bounds (static-spherem 10 0 0 12) ) @@ -761,6 +785,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-twist-blade ((obj sew-twist-blade) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -990,6 +1020,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-light-switch ((obj sew-light-switch) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (sew-light-switch-method-22 obj) (process-drawable-from-entity! obj arg0) diff --git a/goal_src/jak2/levels/sewer/sewer-obs2.gc b/goal_src/jak2/levels/sewer/sewer-obs2.gc index 334f86ce87..22d35fe6c6 100644 --- a/goal_src/jak2/levels/sewer/sewer-obs2.gc +++ b/goal_src/jak2/levels/sewer/sewer-obs2.gc @@ -20,14 +20,22 @@ ) -(defskelgroup skel-sew-elevator sew-elevator 0 3 ((1 (meters 999999))) :bounds (static-spherem 0 0 5.6 9.2)) +(defskelgroup skel-sew-elevator sew-elevator sew-elevator-lod0-jg sew-elevator-idle-ja + ((sew-elevator-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 5.6 9.2) + ) (defmethod get-art-group sew-elevator ((obj sew-elevator)) "@returns The associated [[art-group]]" (art-group-get-by-name *level* "skel-sew-elevator" (the-as (pointer uint32) #f)) ) -(defmethod elevator-method-43 sew-elevator ((obj sew-elevator) (arg0 vector) (arg1 float) (arg2 float)) +(defmethod move-between-points sew-elevator ((obj sew-elevator) (arg0 vector) (arg1 float) (arg2 float)) + "Move between two points on the elevator's path +@param vec TODO not sure +@param point-a The first point fetched from the elevator's path +@param point-b The second point fetched from the path +@see [[path-control]] and [[elevator]]" (let ((s4-0 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg1 'interp)) (a0-3 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg2 'interp)) (v1-3 (-> obj root-override trans)) @@ -41,8 +49,8 @@ ) ) -(defmethod elevator-method-45 sew-elevator ((obj sew-elevator)) - "@returns Stub, or always returns [[#t]]" +(defmethod commited-to-ride? sew-elevator ((obj sew-elevator)) + "@returns if the target is considered within the elevator area enough to begin descending/ascending" (let* ((gp-0 *target*) (a0-2 (if (type? gp-0 process-focusable) gp-0 @@ -85,7 +93,7 @@ (t9-0) ) ) - (when (and (logtest? (-> self elevator-status) (elevator-status elevator-status-0)) + (when (and (logtest? (-> self elevator-status) (elevator-status waiting-to-descend)) (logtest? (elevator-flags elevator-flags-16) (-> self params flags)) ) (sew-elevator-method-49 self #t) @@ -114,7 +122,7 @@ ) (sound-stop (-> self sound-id)) (sound-play "sew-elev-stop") - (when (and (logtest? (-> self elevator-status) (elevator-status elevator-status-0)) + (when (and (logtest? (-> self elevator-status) (elevator-status waiting-to-descend)) (logtest? (elevator-flags elevator-flags-16) (-> self params flags)) ) (sew-elevator-method-49 self #f) @@ -130,7 +138,9 @@ (none) ) -(defmethod base-plat-method-33 sew-elevator ((obj sew-elevator)) +(defmethod init-plat! sew-elevator ((obj sew-elevator)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." (set! (-> obj sound-id) (new-sound-id)) 0 (none) @@ -138,11 +148,11 @@ (defmethod init-defaults! sew-elevator ((obj sew-elevator)) "Initializes default settings related to the [[elevator]]: - - `elevator-xz-threshold` - - `elevator-y-threshold` - - `elevator-start-pos` - - `elevator-move-rate` - - `elevator-flags`" +- `elevator-xz-threshold` +- `elevator-y-threshold` +- `elevator-start-pos` +- `elevator-move-rate` +- `elevator-flags`" (let ((t9-0 (method-of-type elevator init-defaults!))) (t9-0 obj) ) @@ -162,8 +172,8 @@ (none) ) -(defmethod base-plat-method-31 sew-elevator ((obj sew-elevator)) - "TODO - collision stuff" +(defmethod init-plat-collision! sew-elevator ((obj sew-elevator)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s5-0 reaction) cshape-reaction-default) @@ -222,8 +232,8 @@ ) -(defskelgroup skel-sew-valve sew-valve 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-sew-valve sew-valve sew-valve-lod0-jg sew-valve-idle-ja + ((sew-valve-lod0-mg (meters 20)) (sew-valve-lod1-mg (meters 999999))) :bounds (static-spherem 0 0 0 2) ) @@ -324,6 +334,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-valve ((obj sew-valve) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag) (sv-32 res-tag)) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -418,14 +434,14 @@ :bounds (static-spherem 0 7.5 0 14.4) ) -(defskelgroup skel-sew-mar-statue-explode-a sew-mar-statue-explode 0 2 - ((1 (meters 999999))) +(defskelgroup skel-sew-mar-statue-explode-a sew-mar-statue-explode sew-mar-statue-explode-a-lod0-jg sew-mar-statue-explode-a-idle-ja + ((sew-mar-statue-explode-a-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 50) :origin-joint-index 4 ) -(defskelgroup skel-sew-mar-statue-explode-b sew-mar-statue-explode 4 6 - ((5 (meters 999999))) +(defskelgroup skel-sew-mar-statue-explode-b sew-mar-statue-explode sew-mar-statue-explode-b-lod0-jg sew-mar-statue-explode-b-idle-ja + ((sew-mar-statue-explode-b-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 50) :origin-joint-index 6 ) @@ -572,6 +588,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-mar-statue ((obj sew-mar-statue) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj spawned-debris?) #f) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) @@ -621,16 +643,16 @@ ) -(defskelgroup skel-sew-catwalk-1 sew-catwalk 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-sew-catwalk-1 sew-catwalk sew-catwalk-1-lod0-jg sew-catwalk-1-idle-ja + ((sew-catwalk-1-lod0-mg (meters 20)) (sew-catwalk-1-lod1-mg (meters 999999))) :bounds (static-spherem -7 5 -25 18) :origin-joint-index 3 ) (defmethod start-bouncing! sew-catwalk ((obj sew-catwalk)) "Sets `bouncing` to [[#t]] and sets up the clock to periodically bounce - and translate the platform via the `smush` - @see [[smush-control]]" +and translate the platform via the `smush` +@see [[smush-control]]" (logclear! (-> obj mask) (process-mask sleep)) (logclear! (-> obj mask) (process-mask sleep-code)) 0 @@ -673,6 +695,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-catwalk ((obj sew-catwalk) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 symbol) (sv-48 type) (sv-64 collide-shape-moving)) (stack-size-set! (-> obj main-thread) 512) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) @@ -905,6 +933,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-mine-a ((obj sew-mine-a) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s3-0 prim-core collide-as) (collide-spec pusher)) @@ -981,6 +1015,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-mine-b ((obj sew-mine-b) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s3-0 prim-core collide-as) (collide-spec pusher)) @@ -1047,8 +1087,8 @@ ) -(defskelgroup skel-sew-wall sew-wall 0 -1 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-sew-wall sew-wall sew-wall-lod0-jg -1 + ((sew-wall-lod0-mg (meters 20)) (sew-wall-lod1-mg (meters 999999))) :bounds (static-spherem 0 0 0 10) :origin-joint-index 4 ) @@ -1214,6 +1254,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-wall ((obj sew-wall) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (with-pp (stack-size-set! (-> obj main-thread) 512) (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) @@ -1362,6 +1408,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-grill ((obj sew-grill) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -1390,7 +1442,10 @@ ) -(defskelgroup skel-sew-scare-grunt grunt 0 5 ((1 (meters 999999))) :bounds (static-spherem 0 5 -12 20)) +(defskelgroup skel-sew-scare-grunt grunt grunt-lod0-jg grunt-idle-ja + ((grunt-lod0-mg (meters 999999))) + :bounds (static-spherem 0 5 -12 20) + ) (define *sew-scare-grunt-nav-enemy-info* (new 'static 'nav-enemy-info diff --git a/goal_src/jak2/levels/stadium/jetboard/skatea-obs.gc b/goal_src/jak2/levels/stadium/jetboard/skatea-obs.gc index e2bdeffb3b..06bc578ec2 100644 --- a/goal_src/jak2/levels/stadium/jetboard/skatea-obs.gc +++ b/goal_src/jak2/levels/stadium/jetboard/skatea-obs.gc @@ -22,7 +22,7 @@ (hud-score handle :offset-assert 184) (hud-goal handle :offset-assert 192) (voicebox handle :offset-assert 200) - (last-sound-id sound-id :offset-assert 208) + (last-sound-id sound-id :offset-assert 208) (combo-done? symbol :offset-assert 212) (task-gold uint16 :offset-assert 216) (task-silver uint16 :offset-assert 218) @@ -32,7 +32,7 @@ (training-goal float :offset-assert 228) (egg-count int32 :offset-assert 232) (medal int32 :offset-assert 236) - (gui-id sound-id :offset-assert 240) + (gui-id sound-id :offset-assert 240) (hint-time time-frame :offset-assert 248) ) :heap-base #x80 @@ -319,7 +319,7 @@ (add-process *gui-control* self (gui-channel sig) (gui-action play) "kei001" -99.0 0) ) (while (or (not *target*) (zero? (logand (focus-status board) (-> *target* focus-status)))) - (if (= (get-status *gui-control* (the-as sound-id (-> self last-sound-id))) (gui-status unknown)) + (if (= (get-status *gui-control* (-> self last-sound-id)) (gui-status unknown)) (send-event (handle->process (-> self voicebox)) 'speak-effect #f) ) (render-text self (game-text-id board-tutorial-get-on-board)) @@ -522,7 +522,7 @@ (if (= (-> self trick-type) (board-tricks board-rail-jump)) (set! gp-2 #t) ) - (if (= (get-status *gui-control* (the-as sound-id (-> self last-sound-id))) (gui-status unknown)) + (if (= (get-status *gui-control* (-> self last-sound-id)) (gui-status unknown)) (send-event (handle->process (-> self voicebox)) 'speak-effect #f) ) (if (and gp-2 (-> self grind)) @@ -1353,7 +1353,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! hoverboard-training-manager ((obj hoverboard-training-manager) (arg0 entity-actor)) - (stack-size-set! (-> obj main-thread) 1024) ;; added + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (set! sv-16 (new 'static 'res-tag)) (let ((v1-1 (res-lump-data (-> obj entity) 'actor-groups pointer :tag-ptr (& sv-16)))) @@ -1377,7 +1382,7 @@ (set! (-> obj hud-goal) (the-as handle #f)) (set! (-> obj voicebox) (the-as handle #f)) (set! (-> obj arrow) (the-as handle #f)) - (set! (-> obj gui-id) (the-as sound-id 0)) + (set! (-> obj gui-id) (new 'static 'sound-id)) (set! (-> obj gui-id) (add-process *gui-control* obj (gui-channel message) (gui-action play) (-> obj name) 81920.0 0) ) @@ -1438,8 +1443,8 @@ ) -(defskelgroup skel-skate-training-ramp skate-training-ramp 0 2 - ((1 (meters 999999))) +(defskelgroup skel-skate-training-ramp skate-training-ramp skate-training-ramp-lod0-jg skate-training-ramp-idle-ja + ((skate-training-ramp-lod0-mg (meters 999999))) :bounds (static-spherem 4 -4 8 12) ) @@ -1524,6 +1529,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! skate-training-ramp ((obj skate-training-ramp) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (skate-training-ramp-method-28 obj) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1562,7 +1573,10 @@ ) -(defskelgroup skel-skate-gate skate-gate 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 8 0 30)) +(defskelgroup skel-skate-gate skate-gate skate-gate-lod0-jg skate-gate-idle-ja + ((skate-gate-lod0-mg (meters 999999))) + :bounds (static-spherem 0 8 0 30) + ) (defstate idle (skate-gate) :virtual #t @@ -1642,6 +1656,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! skate-gate ((obj skate-gate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (skate-gate-method-29 obj) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1679,8 +1699,8 @@ (none) ) -(defskelgroup skel-skatea-jump-pad skatea-jump-pad 0 2 - ((1 (meters 999999))) +(defskelgroup skel-skatea-jump-pad skatea-jump-pad skatea-jump-pad-lod0-jg skatea-jump-pad-idle-ja + ((skatea-jump-pad-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 15) ) @@ -1789,8 +1809,8 @@ ) ) -(defskelgroup skel-skatea-floating-ring skatea-floating-ring 0 2 - ((1 (meters 999999))) +(defskelgroup skel-skatea-floating-ring skatea-floating-ring skatea-floating-ring-lod0-jg skatea-floating-ring-idle-ja + ((skatea-floating-ring-lod0-mg (meters 999999))) :bounds (static-spherem 0 4 0 8) ) @@ -1887,6 +1907,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! skatea-floating-ring ((obj skatea-floating-ring) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (skatea-floating-ring-method-28 obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/goal_src/jak2/levels/stadium/stadium-part.gc b/goal_src/jak2/levels/stadium/stadium-part.gc index e6fde4e343..5d913ed421 100644 --- a/goal_src/jak2/levels/stadium/stadium-part.gc +++ b/goal_src/jak2/levels/stadium/stadium-part.gc @@ -609,16 +609,17 @@ ) (defun check-drop-level-stadium-drop-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "Ensures the fountains in the stadium don't go through the ground / the splash effect is rendered" (when (< (-> arg2 vector 0 y) (-> arg1 user-float)) - (let ((s3-0 (new 'stack-no-clear 'vector))) + (let ((vec (new 'stack-no-clear 'vector))) (sp-kill-particle arg0 arg1) - (set-vector! s3-0 (-> arg2 vector 0 x) (-> arg1 user-float) (-> arg2 vector 0 z) 1.0) + (set-vector! vec (-> arg2 vector 0 x) (-> arg1 user-float) (-> arg2 vector 0 z) 1.0) (let ((t9-1 sp-launch-particles-var) (a0-3 *sp-particle-system-2d*) (a1-2 (-> *part-id-table* 3938)) (a2-1 *launch-matrix*) ) - (set! (-> a2-1 trans quad) (-> s3-0 quad)) + (set! (-> a2-1 trans quad) (-> vec quad)) (t9-1 a0-3 a1-2 a2-1 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-2 sp-launch-particles-var) @@ -626,7 +627,7 @@ (a1-3 (-> *part-id-table* 3939)) (a2-2 *launch-matrix*) ) - (set! (-> a2-2 trans quad) (-> s3-0 quad)) + (set! (-> a2-2 trans quad) (-> vec quad)) (t9-2 a0-4 a1-3 a2-2 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-3 sp-launch-particles-var) @@ -634,7 +635,7 @@ (a1-4 (-> *part-id-table* 3940)) (a2-3 *launch-matrix*) ) - (set! (-> a2-3 trans quad) (-> s3-0 quad)) + (set! (-> a2-3 trans quad) (-> vec quad)) (t9-3 a0-5 a1-4 a2-3 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) ) diff --git a/goal_src/jak2/levels/stadium/stadium-scenes.gc b/goal_src/jak2/levels/stadium/stadium-scenes.gc index d9be74fa26..371aea8e87 100644 --- a/goal_src/jak2/levels/stadium/stadium-scenes.gc +++ b/goal_src/jak2/levels/stadium/stadium-scenes.gc @@ -21,14 +21,14 @@ :origin-joint-index 3 ) -(defskelgroup skel-stdm-barrels stdm-barrels 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-stdm-barrels stdm-barrels stdm-barrels-lod0-jg -1 + ((stdm-barrels-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 10) :origin-joint-index 3 ) -(defskelgroup skel-stdm-baron-box stdm-baron-box 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-stdm-baron-box stdm-baron-box stdm-baron-box-lod0-jg -1 + ((stdm-baron-box-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 10) :origin-joint-index 3 ) @@ -3190,7 +3190,7 @@ (defmethod get-art-elem keira-npc ((obj keira-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor keira-stadium)) (-> obj draw art-group data 4) diff --git a/goal_src/jak2/levels/strip/chaincrate.gc b/goal_src/jak2/levels/strip/chaincrate.gc index 4a7d01111b..61905f6ddc 100644 --- a/goal_src/jak2/levels/strip/chaincrate.gc +++ b/goal_src/jak2/levels/strip/chaincrate.gc @@ -69,8 +69,8 @@ ) ) -(defskelgroup skel-strip-chain-crate strip-chain-crate 0 2 - ((1 (meters 999999))) +(defskelgroup skel-strip-chain-crate strip-chain-crate strip-chain-crate-lod0-jg strip-chain-crate-idle-ja + ((strip-chain-crate-lod0-mg (meters 999999))) :bounds (static-spherem 0 -16.5 0 19) :longest-edge (meters 23.3238) :origin-joint-index 3 @@ -325,6 +325,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! strip-chain-crate ((obj strip-chain-crate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 int)) (with-pp (set! (-> obj root) (new 'process 'trsqv)) diff --git a/goal_src/jak2/levels/strip/strip-drop.gc b/goal_src/jak2/levels/strip/strip-drop.gc index 13fed008c1..48a973388f 100644 --- a/goal_src/jak2/levels/strip/strip-drop.gc +++ b/goal_src/jak2/levels/strip/strip-drop.gc @@ -198,19 +198,22 @@ (none) ) -(defskelgroup skel-cable cable 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-cable cable cable-lod0-jg -1 + ((cable-lod0-mg (meters 999999))) :bounds (static-spherem 0 44 0 44) :origin-joint-index 3 ) -(defskelgroup skel-cranecrate cranecrate 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-cranecrate cranecrate cranecrate-lod0-jg cranecrate-idle-ja + ((cranecrate-lod0-mg (meters 20)) (cranecrate-lod1-mg (meters 999999))) :bounds (static-spherem 0 -5 0 20) :origin-joint-index 3 ) -(defskelgroup skel-crane crane 0 2 ((1 (meters 999999))) :bounds (static-spherem 75 20 0 120)) +(defskelgroup skel-crane crane crane-lod0-jg crane-idle-ja + ((crane-lod0-mg (meters 999999))) + :bounds (static-spherem 75 20 0 120) + ) (deftype strip-game-crate (process-drawable) ((local-offset vector :inline :offset-assert 208) @@ -228,8 +231,8 @@ ) -(defskelgroup skel-strip-game-crate strip-game-crate 0 2 - ((1 (meters 999999))) +(defskelgroup skel-strip-game-crate strip-game-crate strip-game-crate-lod0-jg strip-game-crate-idle-ja + ((strip-game-crate-lod0-mg (meters 999999))) :bounds (static-spherem 0 9.8 0 27) ) @@ -444,6 +447,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! crane ((obj crane) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -517,6 +526,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! cranecrate ((obj cranecrate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) @@ -577,23 +592,23 @@ ) -(defskelgroup skel-grunt-egg-a grunt-egg-a 0 -1 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-grunt-egg-a grunt-egg-a grunt-egg-a-lod0-jg -1 + ((grunt-egg-a-lod0-mg (meters 20)) (grunt-egg-a-lod1-mg (meters 999999))) :bounds (static-spherem 0 2 0 4) ) -(defskelgroup skel-grunt-egg-b grunt-egg-b 0 -1 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-grunt-egg-b grunt-egg-b grunt-egg-b-lod0-jg -1 + ((grunt-egg-b-lod0-mg (meters 20)) (grunt-egg-b-lod1-mg (meters 999999))) :bounds (static-spherem 0 2.5 0 4) ) -(defskelgroup skel-grunt-egg-c grunt-egg-c 0 -1 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-grunt-egg-c grunt-egg-c grunt-egg-c-lod0-jg -1 + ((grunt-egg-c-lod0-mg (meters 20)) (grunt-egg-c-lod1-mg (meters 999999))) :bounds (static-spherem 0 2.2 0 4) ) -(defskelgroup skel-grunt-egg-d grunt-egg-d 0 -1 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-grunt-egg-d grunt-egg-d grunt-egg-d-lod0-jg -1 + ((grunt-egg-d-lod0-mg (meters 20)) (grunt-egg-d-lod1-mg (meters 999999))) :bounds (static-spherem 0 4 0 8) ) @@ -690,6 +705,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! grunt-egg ((obj grunt-egg) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (cond ((>= (res-lump-value arg0 'extra-id int :default (the-as uint128 -1) :time -1000000000.0) 0) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) diff --git a/goal_src/jak2/levels/strip/strip-obs.gc b/goal_src/jak2/levels/strip/strip-obs.gc index 4d97595708..a61e797691 100644 --- a/goal_src/jak2/levels/strip/strip-obs.gc +++ b/goal_src/jak2/levels/strip/strip-obs.gc @@ -162,6 +162,12 @@ ) (defmethod init-from-entity! strip-hazard ((obj strip-hazard) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-64 res-tag)) (set-vector! (-> obj shove-vec) 0.0 12288.0 24576.0 1.0) (set! (-> obj no-collision-timer) (the-as uint 0)) @@ -186,7 +192,7 @@ (if #t (set! v1-4 (logior v1-4 1)) ) - (set! (-> s4-0 sync-type) (the-as basic 'sync-linear)) + (set! (-> s4-0 sync-type) 'sync-linear) (set! (-> s4-0 sync-flags) (the-as sync-flags v1-4)) ) (set! (-> s4-0 entity) arg0) @@ -211,8 +217,8 @@ ) -(defskelgroup skel-fencespikes fencespikes 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-fencespikes fencespikes fencespikes-lod0-jg fencespikes-idle-ja + ((fencespikes-lod0-mg (meters 20)) (fencespikes-lod1-mg (meters 999999))) :bounds (static-spherem 12 0 0 10.5) ) @@ -246,6 +252,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fencespikes ((obj fencespikes) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 string)) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -316,8 +328,8 @@ ) -(defskelgroup skel-pitspikes pitspikes 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-pitspikes pitspikes pitspikes-lod0-jg pitspikes-idle-ja + ((pitspikes-lod0-mg (meters 20)) (pitspikes-lod1-mg (meters 999999))) :bounds (static-spherem 8 0 0 12) ) @@ -384,6 +396,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! pitspikes ((obj pitspikes) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) @@ -437,8 +455,8 @@ ) -(defskelgroup skel-curtainsaw curtainsaw 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-curtainsaw curtainsaw curtainsaw-lod0-jg curtainsaw-idle-ja + ((curtainsaw-lod0-mg (meters 20)) (curtainsaw-lod1-mg (meters 999999))) :bounds (static-spherem 0 4 0 10.5) :longest-edge (meters 0.0007044922) ) @@ -478,6 +496,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! curtainsaw ((obj curtainsaw) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) @@ -866,6 +890,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! grenade-point ((obj grenade-point) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj parented?) #f) (when (not (-> obj parented?)) (let ((a1-1 (handle->process (-> *game-info* controller 0)))) @@ -942,7 +972,10 @@ ) -(defskelgroup skel-grenade plasmitebomb 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 0.3)) +(defskelgroup skel-grenade plasmitebomb plasmitebomb-lod0-jg plasmitebomb-idle-ja + ((plasmitebomb-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 0.3) + ) (defpartgroup group-grenade-armed :id 235 @@ -1116,7 +1149,7 @@ (defmethod draw-laser-sight grenade ((obj grenade)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" (let ((gp-0 (get-process *default-dead-pool* part-tracker #x4000))) (when gp-0 (let ((t9-1 (method-of-type part-tracker activate))) @@ -1384,7 +1417,7 @@ (defmethod init-proj-settings! grenade ((obj grenade)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (with-pp (initialize-skeleton obj @@ -1425,13 +1458,25 @@ ) ) -(defskelgroup skel-ecowell-a ecowell-a 0 -1 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 40)) +(defskelgroup skel-ecowell-a ecowell-a ecowell-a-lod0-jg -1 + ((ecowell-a-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 40) + ) -(defskelgroup skel-ecowell-b ecowell-b 0 -1 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 40)) +(defskelgroup skel-ecowell-b ecowell-b ecowell-b-lod0-jg -1 + ((ecowell-b-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 40) + ) -(defskelgroup skel-ecowell-c ecowell-c 0 -1 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 40)) +(defskelgroup skel-ecowell-c ecowell-c ecowell-c-lod0-jg -1 + ((ecowell-c-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 40) + ) -(defskelgroup skel-ecowell-d ecowell-d 0 -1 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 400)) +(defskelgroup skel-ecowell-d ecowell-d ecowell-d-lod0-jg -1 + ((ecowell-d-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 400) + ) (set-subtask-hook! *game-info* @@ -1608,8 +1653,8 @@ (none) ) -(defskelgroup skel-drill-plat drill-plat 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-drill-plat drill-plat drill-plat-lod0-jg drill-plat-idle-ja + ((drill-plat-lod0-mg (meters 20)) (drill-plat-lod1-mg (meters 999999))) :bounds (static-spherem 14 18 0 26) ) @@ -1673,6 +1718,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! drill-plat ((obj drill-plat) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) diff --git a/goal_src/jak2/levels/strip/strip-rescue.gc b/goal_src/jak2/levels/strip/strip-rescue.gc index b52e2b1593..05bcf9eaba 100644 --- a/goal_src/jak2/levels/strip/strip-rescue.gc +++ b/goal_src/jak2/levels/strip/strip-rescue.gc @@ -7,7 +7,10 @@ ;; DECOMP BEGINS -(defskelgroup skel-cntrlrm-door cntrlrm-door 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 1.8 0 3.6)) +(defskelgroup skel-cntrlrm-door cntrlrm-door cntrlrm-door-lod0-jg cntrlrm-door-idle-ja + ((cntrlrm-door-lod0-mg (meters 999999))) + :bounds (static-spherem 0 1.8 0 3.6) + ) (deftype cntrlrm-door (process-drawable) ((root-override collide-shape :offset 128) @@ -51,6 +54,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! cntrlrm-door ((obj cntrlrm-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 0))) (set! (-> s4-0 total-prims) (the-as uint 4)) @@ -102,7 +111,10 @@ (none) ) -(defskelgroup skel-cntrlrm-button cntrlrm-button 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 10)) +(defskelgroup skel-cntrlrm-button cntrlrm-button cntrlrm-button-lod0-jg cntrlrm-button-idle-ja + ((cntrlrm-button-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 10) + ) (deftype cntrlrm-button (process-drawable) ((root-override collide-shape :offset 128) @@ -132,6 +144,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! cntrlrm-button ((obj cntrlrm-button) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) (set! (-> s4-0 total-prims) (the-as uint 3)) diff --git a/goal_src/jak2/levels/temple/canyon/canyon-scenes.gc b/goal_src/jak2/levels/temple/canyon/canyon-scenes.gc index 60a961a99b..1f9c966c59 100644 --- a/goal_src/jak2/levels/temple/canyon/canyon-scenes.gc +++ b/goal_src/jak2/levels/temple/canyon/canyon-scenes.gc @@ -1182,17 +1182,18 @@ ) ) -(defun canyon-draw-beam ((arg0 vector) (arg1 vector)) - (let ((a2-1 (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) - (set! (-> *part-id-table* 1665 init-specs 4 initial-valuef) (vector-length a2-1)) - (draw-beam (-> *part-id-table* 1665) arg0 a2-1 #f #t) +(defun canyon-draw-beam ((point-a vector) (point-b vector)) + "Draws a particle beam between the two provided [[vector]] points" + (let ((displacement (vector-! (new 'stack-no-clear 'vector) point-b point-a))) + (set! (-> *part-id-table* 1665 init-specs 4 initial-valuef) (vector-length displacement)) + (draw-beam (-> *part-id-table* 1665) point-a displacement #f #t) ) (let ((t9-1 sp-launch-particles-var) (a0-3 *sp-particle-system-2d*) (a1-2 (-> *part-id-table* 1668)) (a2-2 *launch-matrix*) ) - (set! (-> a2-2 trans quad) (-> arg0 quad)) + (set! (-> a2-2 trans quad) (-> point-a quad)) (t9-1 a0-3 a1-2 a2-2 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-2 sp-launch-particles-var) @@ -1200,23 +1201,24 @@ (a1-3 (-> *part-id-table* 1669)) (a2-3 *launch-matrix*) ) - (set! (-> a2-3 trans quad) (-> arg1 quad)) + (set! (-> a2-3 trans quad) (-> point-b quad)) (t9-2 a0-4 a1-3 a2-3 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (none) ) -(defun canyon-draw-beam-lens ((arg0 vector) (arg1 vector)) - (let ((a2-1 (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) - (set! (-> *part-id-table* 1666 init-specs 4 initial-valuef) (vector-length a2-1)) - (draw-beam (-> *part-id-table* 1666) arg0 a2-1 #f #t) +(defun canyon-draw-beam-lens ((point-a vector) (point-b vector)) + "Draws a particle beam between the two provided [[vector]] points" + (let ((displacement (vector-! (new 'stack-no-clear 'vector) point-b point-a))) + (set! (-> *part-id-table* 1666 init-specs 4 initial-valuef) (vector-length displacement)) + (draw-beam (-> *part-id-table* 1666) point-a displacement #f #t) ) (let ((t9-1 sp-launch-particles-var) (a0-3 *sp-particle-system-2d*) (a1-2 (-> *part-id-table* 1668)) (a2-2 *launch-matrix*) ) - (set! (-> a2-2 trans quad) (-> arg0 quad)) + (set! (-> a2-2 trans quad) (-> point-a quad)) (t9-1 a0-3 a1-2 a2-2 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-2 sp-launch-particles-var) @@ -1224,23 +1226,24 @@ (a1-3 (-> *part-id-table* 1669)) (a2-3 *launch-matrix*) ) - (set! (-> a2-3 trans quad) (-> arg1 quad)) + (set! (-> a2-3 trans quad) (-> point-b quad)) (t9-2 a0-4 a1-3 a2-3 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (none) ) -(defun canyon-draw-beam-statue ((arg0 vector) (arg1 vector)) - (let ((a2-1 (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) - (set! (-> *part-id-table* 1667 init-specs 4 initial-valuef) (vector-length a2-1)) - (draw-beam (-> *part-id-table* 1667) arg0 a2-1 #f #t) +(defun canyon-draw-beam-statue ((point-a vector) (point-b vector)) + "Draws a particle beam between the two provided [[vector]] points" + (let ((displacement (vector-! (new 'stack-no-clear 'vector) point-b point-a))) + (set! (-> *part-id-table* 1667 init-specs 4 initial-valuef) (vector-length displacement)) + (draw-beam (-> *part-id-table* 1667) point-a displacement #f #t) ) (let ((t9-1 sp-launch-particles-var) (a0-3 *sp-particle-system-2d*) (a1-2 (-> *part-id-table* 1668)) (a2-2 *launch-matrix*) ) - (set! (-> a2-2 trans quad) (-> arg0 quad)) + (set! (-> a2-2 trans quad) (-> point-a quad)) (t9-1 a0-3 a1-2 a2-2 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-2 sp-launch-particles-var) @@ -1248,7 +1251,7 @@ (a1-3 (-> *part-id-table* 1669)) (a2-3 *launch-matrix*) ) - (set! (-> a2-3 trans quad) (-> arg1 quad)) + (set! (-> a2-3 trans quad) (-> point-b quad)) (t9-2 a0-4 a1-3 a2-3 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (none) diff --git a/goal_src/jak2/levels/temple/canyon/mincan-obs.gc b/goal_src/jak2/levels/temple/canyon/mincan-obs.gc index 1e468997a0..1aebcccedb 100644 --- a/goal_src/jak2/levels/temple/canyon/mincan-obs.gc +++ b/goal_src/jak2/levels/temple/canyon/mincan-obs.gc @@ -33,16 +33,16 @@ (defmethod art-init! water-anim-mincan ((obj water-anim-mincan)) "Initialize a [[water-anim]]'s [[skeleton-group]], joints and ambience." - (let ((t9-0 (method-of-type water-anim art-init!))) - (t9-0 obj) + (let ((func (method-of-type water-anim art-init!))) + (func obj) ) - (let ((v1-2 (new 'process 'ripple-control))) - (set! (-> obj draw ripple) v1-2) + (let ((ripple-control (new 'process 'ripple-control))) + (set! (-> obj draw ripple) ripple-control) (set-vector! (-> obj draw color-mult) 0.01 0.45 0.5 0.75) - (set! (-> v1-2 global-scale) 3072.0) - (set! (-> v1-2 close-fade-dist) 163840.0) - (set! (-> v1-2 far-fade-dist) 245760.0) - (set! (-> v1-2 waveform) ripple-for-water-anim-mincan) + (set! (-> ripple-control global-scale) 3072.0) + (set! (-> ripple-control close-fade-dist) 163840.0) + (set! (-> ripple-control far-fade-dist) 245760.0) + (set! (-> ripple-control waveform) ripple-for-water-anim-mincan) ) 0 (none) @@ -61,8 +61,8 @@ ) -(defskelgroup skel-mincan-lighthouse-lens mincan-lighthouse 5 7 - ((6 (meters 999999))) +(defskelgroup skel-mincan-lighthouse-lens mincan-lighthouse mincan-lighthouse-lens-lod0-jg mincan-lighthouse-lens-idle-ja + ((mincan-lighthouse-lens-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 5) :origin-joint-index 9 ) @@ -114,6 +114,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mincan-lighthouse-lens ((obj mincan-lighthouse-lens) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -129,9 +135,10 @@ ) ;; WARN: Return type mismatch object vs none. -(defbehavior mincan-lighthouse-lens-init-by-other mincan-lighthouse-lens ((arg0 mincan-lighthouse) (arg1 entity-actor)) +(defbehavior mincan-lighthouse-lens-init-by-other mincan-lighthouse-lens ((arg0 mincan-lighthouse) (entity entity-actor)) + "Given an [[entity-actor]], create the [[mincan-lighthouse-lens]]" (set! (-> self root) (new 'process 'trsqv)) - (process-drawable-from-entity! self arg1) + (process-drawable-from-entity! self entity) (initialize-skeleton self (the-as @@ -157,8 +164,8 @@ ) -(defskelgroup skel-mincan-lighthouse mincan-lighthouse 0 2 - ((1 (meters 999999))) +(defskelgroup skel-mincan-lighthouse mincan-lighthouse mincan-lighthouse-lod0-jg mincan-lighthouse-idle-ja + ((mincan-lighthouse-lod0-mg (meters 999999))) :bounds (static-spherem 0 -20 0 62.5) :origin-joint-index 6 ) @@ -211,6 +218,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mincan-lighthouse ((obj mincan-lighthouse) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -236,8 +249,8 @@ ) -(defskelgroup skel-mincan-lens mincan-lens 0 2 - ((1 (meters 999999))) +(defskelgroup skel-mincan-lens mincan-lens mincan-lens-lod0-jg mincan-lens-idle-ja + ((mincan-lens-lod0-mg (meters 999999))) :bounds (static-spherem 0 5 0 15) :origin-joint-index 3 ) @@ -290,70 +303,76 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mincan-lens ((obj mincan-lens) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) - (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 7) 0))) - (set! (-> s4-0 total-prims) (the-as uint 8)) - (set! (-> s3-0 prim-core collide-as) (collide-spec obstacle)) - (set! (-> s3-0 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> s3-0 prim-core action) (collide-action solid)) - (set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 81920.0) - (set! (-> s4-0 root-prim) s3-0) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) + (let ((prim-group (new 'process 'collide-shape-prim-group cshape (the-as uint 7) 0))) + (set! (-> cshape total-prims) (the-as uint 8)) + (set! (-> prim-group prim-core collide-as) (collide-spec obstacle)) + (set! (-> prim-group prim-core collide-with) (collide-spec jak player-list)) + (set! (-> prim-group prim-core action) (collide-action solid)) + (set-vector! (-> prim-group local-sphere) 0.0 0.0 0.0 81920.0) + (set! (-> cshape root-prim) prim-group) ) - (let ((v1-8 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 6) (the-as uint 0)))) - (set! (-> v1-8 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-8 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-8 prim-core action) (collide-action solid)) - (set! (-> v1-8 transform-index) 3) - (set-vector! (-> v1-8 local-sphere) 0.0 0.0 0.0 20480.0) + (let ((mesh-1 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 6) (the-as uint 0)))) + (set! (-> mesh-1 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-1 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-1 prim-core action) (collide-action solid)) + (set! (-> mesh-1 transform-index) 3) + (set-vector! (-> mesh-1 local-sphere) 0.0 0.0 0.0 20480.0) ) - (let ((v1-10 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 4) (the-as uint 0)))) - (set! (-> v1-10 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-10 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-10 prim-core action) (collide-action solid)) - (set! (-> v1-10 transform-index) 3) - (set-vector! (-> v1-10 local-sphere) 0.0 0.0 32768.0 8192.0) + (let ((mesh-2 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 4) (the-as uint 0)))) + (set! (-> mesh-2 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-2 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-2 prim-core action) (collide-action solid)) + (set! (-> mesh-2 transform-index) 3) + (set-vector! (-> mesh-2 local-sphere) 0.0 0.0 32768.0 8192.0) ) - (let ((v1-12 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 5) (the-as uint 0)))) - (set! (-> v1-12 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-12 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-12 prim-core action) (collide-action solid)) - (set! (-> v1-12 transform-index) 3) - (set-vector! (-> v1-12 local-sphere) 0.0 32768.0 0.0 28672.0) + (let ((mesh-3 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 5) (the-as uint 0)))) + (set! (-> mesh-3 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-3 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-3 prim-core action) (collide-action solid)) + (set! (-> mesh-3 transform-index) 3) + (set-vector! (-> mesh-3 local-sphere) 0.0 32768.0 0.0 28672.0) ) - (let ((v1-14 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-14 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-14 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-14 prim-core action) (collide-action solid)) - (set! (-> v1-14 transform-index) 4) - (set-vector! (-> v1-14 local-sphere) 0.0 12288.0 -36864.0 28672.0) + (let ((mesh-4 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> mesh-4 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-4 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-4 prim-core action) (collide-action solid)) + (set! (-> mesh-4 transform-index) 4) + (set-vector! (-> mesh-4 local-sphere) 0.0 12288.0 -36864.0 28672.0) ) - (let ((v1-16 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 0)))) - (set! (-> v1-16 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-16 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-16 prim-core action) (collide-action solid)) - (set! (-> v1-16 transform-index) 7) - (set-vector! (-> v1-16 local-sphere) 0.0 12288.0 -36864.0 28672.0) + (let ((mesh-5 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 1) (the-as uint 0)))) + (set! (-> mesh-5 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-5 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-5 prim-core action) (collide-action solid)) + (set! (-> mesh-5 transform-index) 7) + (set-vector! (-> mesh-5 local-sphere) 0.0 12288.0 -36864.0 28672.0) ) - (let ((v1-18 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0)))) - (set! (-> v1-18 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-18 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-18 prim-core action) (collide-action solid)) - (set! (-> v1-18 transform-index) 10) - (set-vector! (-> v1-18 local-sphere) 0.0 12288.0 -36864.0 28672.0) + (let ((mesh-6 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 2) (the-as uint 0)))) + (set! (-> mesh-6 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-6 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-6 prim-core action) (collide-action solid)) + (set! (-> mesh-6 transform-index) 10) + (set-vector! (-> mesh-6 local-sphere) 0.0 12288.0 -36864.0 28672.0) ) - (let ((v1-20 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 3) (the-as uint 0)))) - (set! (-> v1-20 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-20 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-20 prim-core action) (collide-action solid)) - (set! (-> v1-20 transform-index) 13) - (set-vector! (-> v1-20 local-sphere) 0.0 12288.0 -36864.0 28672.0) + (let ((mesh-7 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 3) (the-as uint 0)))) + (set! (-> mesh-7 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-7 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-7 prim-core action) (collide-action solid)) + (set! (-> mesh-7 transform-index) 13) + (set-vector! (-> mesh-7 local-sphere) 0.0 12288.0 -36864.0 28672.0) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-23 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-23 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-23 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> obj root) s4-0) + (set! (-> obj root) cshape) ) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -377,8 +396,8 @@ ) -(defskelgroup skel-mincan-cogs mincan-cogs 0 2 - ((1 (meters 999999))) +(defskelgroup skel-mincan-cogs mincan-cogs mincan-cogs-lod0-jg mincan-cogs-idle-ja + ((mincan-cogs-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 70) :origin-joint-index 3 ) @@ -404,6 +423,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mincan-cogs ((obj mincan-cogs) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/goal_src/jak2/levels/temple/mountain-obs.gc b/goal_src/jak2/levels/temple/mountain-obs.gc index 90687ba3cf..b50e40b066 100644 --- a/goal_src/jak2/levels/temple/mountain-obs.gc +++ b/goal_src/jak2/levels/temple/mountain-obs.gc @@ -43,8 +43,8 @@ ) ) -(defskelgroup skel-mtn-dice-button mtn-dice-button 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-mtn-dice-button mtn-dice-button mtn-dice-button-lod0-jg mtn-dice-button-idle-ja + ((mtn-dice-button-lod0-mg (meters 20)) (mtn-dice-button-lod1-mg (meters 999999))) :bounds (static-spherem 0 0 0 1) ) @@ -308,7 +308,10 @@ ) -(defskelgroup skel-mtn-dice mtn-dice 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 100)) +(defskelgroup skel-mtn-dice mtn-dice mtn-dice-lod0-jg mtn-dice-idle-ja + ((mtn-dice-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 100) + ) (defmethod mtn-dice-method-25 mtn-dice ((obj mtn-dice) (arg0 int)) (let ((s4-0 (-> obj face-matrix arg0))) @@ -1317,6 +1320,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-dice ((obj mtn-dice) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 6) 0))) (set! (-> s4-0 total-prims) (the-as uint 7)) @@ -1465,8 +1474,8 @@ ) -(defskelgroup skel-mtn-plat-elevator mtn-plat-elevator 0 3 - ((1 (meters 999999))) +(defskelgroup skel-mtn-plat-elevator mtn-plat-elevator mtn-plat-elevator-lod0-jg mtn-plat-elevator-idle-ja + ((mtn-plat-elevator-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 7) ) @@ -1475,8 +1484,8 @@ (art-group-get-by-name *level* "skel-mtn-plat-elevator" (the-as (pointer uint32) #f)) ) -(defmethod clear-ambient-sound! mtn-plat-elevator ((obj mtn-plat-elevator)) - "Might be a virtual function, but clears the object's [[ambient-sound]]" +(defmethod set-ambient-sound! mtn-plat-elevator ((obj mtn-plat-elevator)) + "Sets the elevator's [[ambient-sound]] up" (set! (-> obj sound) (new 'process 'ambient-sound (static-sound-spec "mtn-elevator-lp" :fo-max 70) (-> obj root-override trans)) ) @@ -1484,7 +1493,12 @@ (none) ) -(defmethod elevator-method-43 mtn-plat-elevator ((obj mtn-plat-elevator) (arg0 vector) (arg1 float) (arg2 float)) +(defmethod move-between-points mtn-plat-elevator ((obj mtn-plat-elevator) (arg0 vector) (arg1 float) (arg2 float)) + "Move between two points on the elevator's path +@param vec TODO not sure +@param point-a The first point fetched from the elevator's path +@param point-b The second point fetched from the path +@see [[path-control]] and [[elevator]]" (let ((s4-0 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg1 'interp)) (a0-3 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg2 'interp)) ) @@ -1495,8 +1509,8 @@ ) ) -(defmethod base-plat-method-31 mtn-plat-elevator ((obj mtn-plat-elevator)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-elevator ((obj mtn-plat-elevator)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -1534,7 +1548,10 @@ ) -(defskelgroup skel-mtn-plat-updown mtn-plat-updown 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 4)) +(defskelgroup skel-mtn-plat-updown mtn-plat-updown mtn-plat-updown-lod0-jg mtn-plat-updown-idle-ja + ((mtn-plat-updown-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 4) + ) (defstate idle (mtn-plat-updown) :virtual #t @@ -1568,8 +1585,8 @@ :post (the-as (function none :behavior mtn-plat-updown) plat-post) ) -(defmethod base-plat-method-31 mtn-plat-updown ((obj mtn-plat-updown)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-updown ((obj mtn-plat-updown)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -1594,7 +1611,13 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-plat-updown ((obj mtn-plat-updown) (arg0 entity-actor)) - (base-plat-method-31 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-plat-collision! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj @@ -1627,7 +1650,7 @@ (if (not (logtest? (-> obj fact options) (actor-option loop))) (set! v1-24 (logior v1-24 1)) ) - (set! (-> a1-7 sync-type) (the-as basic 'sync-eased)) + (set! (-> a1-7 sync-type) 'sync-eased) (set! (-> a1-7 sync-flags) (the-as sync-flags v1-24)) ) (set! (-> a1-7 period) (the-as uint 1800)) @@ -1668,7 +1691,10 @@ ) -(defskelgroup skel-mtn-plat-eject mtn-plat-eject 0 3 ((1 (meters 999999))) :bounds (static-spherem 0 0 4 7.1)) +(defskelgroup skel-mtn-plat-eject mtn-plat-eject mtn-plat-eject-lod0-jg mtn-plat-eject-idle-ja + ((mtn-plat-eject-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 4 7.1) + ) (defstate wait (mtn-plat-eject) :virtual #t @@ -1725,6 +1751,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-plat-eject ((obj mtn-plat-eject) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (mtn-plat-eject-method-22 obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -1761,7 +1793,10 @@ ) -(defskelgroup skel-mtn-plat-long mtn-plat-long 0 3 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 15.5)) +(defskelgroup skel-mtn-plat-long mtn-plat-long mtn-plat-long-lod0-jg mtn-plat-long-idle-ja + ((mtn-plat-long-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 15.5) + ) (defstate idle (mtn-plat-long) :virtual #t @@ -1787,8 +1822,8 @@ :post (the-as (function none :behavior mtn-plat-long) plat-post) ) -(defmethod base-plat-method-31 mtn-plat-long ((obj mtn-plat-long)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-long ((obj mtn-plat-long)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -1813,7 +1848,13 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-plat-long ((obj mtn-plat-long) (arg0 entity-actor)) - (base-plat-method-31 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-plat-collision! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj @@ -1831,7 +1872,7 @@ (if (not (logtest? (-> obj fact options) (actor-option loop))) (set! v1-13 (logior v1-13 1)) ) - (set! (-> a1-5 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-5 sync-type) 'sync-linear) (set! (-> a1-5 sync-flags) (the-as sync-flags v1-13)) ) (set! (-> a1-5 entity) arg0) @@ -1856,7 +1897,10 @@ ) -(defskelgroup skel-mtn-gate mtn-gate 0 3 ((1 (meters 999999))) :bounds (static-spherem 0 4 0 18)) +(defskelgroup skel-mtn-gate mtn-gate mtn-gate-lod0-jg mtn-gate-idle-ja + ((mtn-gate-lod0-mg (meters 999999))) + :bounds (static-spherem 0 4 0 18) + ) (defstate idle (mtn-gate) :virtual #t @@ -1906,6 +1950,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-gate ((obj mtn-gate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) (set! (-> s4-0 total-prims) (the-as uint 3)) @@ -1996,15 +2046,15 @@ ) -(defskelgroup skel-mtn-aval-rocks-1 mtn-aval-rocks 0 2 - ((1 (meters 999999))) +(defskelgroup skel-mtn-aval-rocks-1 mtn-aval-rocks mtn-aval-rocks-1-lod0-jg mtn-aval-rocks-1-idle-ja + ((mtn-aval-rocks-1-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 -100 140) ) -(defskelgroup skel-mtn-aval-rocks-shadow mtn-aval-rocks 4 7 - ((5 (meters 999999))) +(defskelgroup skel-mtn-aval-rocks-shadow mtn-aval-rocks mtn-aval-rocks-shadow-lod0-jg mtn-aval-rocks-shadow-idle-ja + ((mtn-aval-rocks-shadow-lod0-mg (meters 999999))) :bounds (static-spherem 0 -1.5 0 2) - :shadow 6 + :shadow mtn-aval-rocks-shadow-shadow-mg ) (define *mtn-aval-rocks-shadow-control* @@ -2365,6 +2415,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-aval-rocks ((obj mtn-aval-rocks) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-sphere) (sv-48 collide-shape-prim-sphere) (sv-64 vector)) (stack-size-set! (-> obj main-thread) 512) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) @@ -2644,8 +2700,8 @@ (none) ) -(defmethod base-plat-method-31 mtn-plat-return ((obj mtn-plat-return)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-return ((obj mtn-plat-return)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -2669,7 +2725,13 @@ ) (defmethod init-from-entity! mtn-plat-return ((obj mtn-plat-return) (arg0 entity-actor)) - (base-plat-method-31 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-plat-collision! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj @@ -2691,7 +2753,7 @@ (set! (-> obj sound) (new 'process 'ambient-sound (static-sound-spec "mtn-plat-lp" :fo-max 70) (-> obj root-override trans)) ) - (base-plat-method-33 obj) + (init-plat! obj) (mtn-plat-return-method-37 obj) (none) ) @@ -2770,7 +2832,10 @@ ) -(defskelgroup skel-mtn-button mtn-button 0 2 ((1 (meters 999999))) :bounds (static-spherem 0 0 0 3)) +(defskelgroup skel-mtn-button mtn-button mtn-button-lod0-jg mtn-button-open-ja + ((mtn-button-lod0-mg (meters 999999))) + :bounds (static-spherem 0 0 0 3) + ) (defstate idle (mtn-button) :virtual #t @@ -2856,6 +2921,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-button ((obj mtn-button) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) (set! (-> s4-0 total-prims) (the-as uint 3)) @@ -2921,14 +2992,14 @@ ) -(defskelgroup skel-mtn-gear-device mtn-gear-device 0 2 - ((1 (meters 999999))) +(defskelgroup skel-mtn-gear-device mtn-gear-device mtn-gear-device-lod0-jg mtn-gear-device-idle-ja + ((mtn-gear-device-lod0-mg (meters 999999))) :bounds (static-spherem 0 9 0 16) :origin-joint-index 3 ) -(defskelgroup skel-mtn-gear-device-collapse mtn-gear-device 4 6 - ((5 (meters 999999))) +(defskelgroup skel-mtn-gear-device-collapse mtn-gear-device mtn-gear-device-collapse-lod0-jg mtn-gear-device-collapse-idle-ja + ((mtn-gear-device-collapse-lod0-mg (meters 999999))) :bounds (static-spherem 0 9 0 40) :origin-joint-index 33 ) @@ -2961,6 +3032,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-gear-device ((obj mtn-gear-device) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (cond ((task-complete? *game-info* (game-task mountain-gear)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) @@ -3271,7 +3348,9 @@ ) ;; WARN: Return type mismatch float vs none. -(defmethod base-plat-method-33 trans-plat ((obj trans-plat)) +(defmethod init-plat! trans-plat ((obj trans-plat)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." (logior! (-> obj flags) 2) (let* ((s5-0 *target*) (a0-2 (if (type? s5-0 process-focusable) diff --git a/goal_src/jak2/levels/temple/mountain-obs2.gc b/goal_src/jak2/levels/temple/mountain-obs2.gc index a1715dc2b3..c203a0b4ad 100644 --- a/goal_src/jak2/levels/temple/mountain-obs2.gc +++ b/goal_src/jak2/levels/temple/mountain-obs2.gc @@ -70,6 +70,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-iris-door ((obj mtn-iris-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) @@ -117,8 +123,8 @@ ) -(defskelgroup skel-mtn-plat-shoot mtn-plat-shoot 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-mtn-plat-shoot mtn-plat-shoot mtn-plat-shoot-lod0-jg mtn-plat-shoot-idle-ja + ((mtn-plat-shoot-lod0-mg (meters 20)) (mtn-plat-shoot-lod1-mg (meters 999999))) :bounds (static-spherem 0 0 0 5.1) ) @@ -127,8 +133,8 @@ (art-group-get-by-name *level* "skel-mtn-plat-shoot" (the-as (pointer uint32) #f)) ) -(defmethod base-plat-method-31 mtn-plat-shoot ((obj mtn-plat-shoot)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-shoot ((obj mtn-plat-shoot)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -156,7 +162,9 @@ (none) ) -(defmethod base-plat-method-33 mtn-plat-shoot ((obj mtn-plat-shoot)) +(defmethod init-plat! mtn-plat-shoot ((obj mtn-plat-shoot)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." (logclear! (-> obj mask) (process-mask actor-pause)) (set! (-> obj mask) (logior (process-mask enemy) (-> obj mask))) (set-vector! (-> obj axe-flip) 1.0 0.0 0.0 1.0) diff --git a/goal_src/jak2/levels/temple/mountain-scenes.gc b/goal_src/jak2/levels/temple/mountain-scenes.gc index 4c7d74ed80..af9a44baa7 100644 --- a/goal_src/jak2/levels/temple/mountain-scenes.gc +++ b/goal_src/jak2/levels/temple/mountain-scenes.gc @@ -733,20 +733,20 @@ ) ) -(defskelgroup skel-mtn-step-plat-rocks-a mtn-step-plat-rocks 0 3 - ((1 (meters 200)) (2 (meters 999999))) +(defskelgroup skel-mtn-step-plat-rocks-a mtn-step-plat-rocks mtn-step-plat-rocks-a-lod0-jg mtn-step-plat-rocks-a-idle-ja + ((mtn-step-plat-rocks-a-lod0-mg (meters 200)) (mtn-step-plat-rocks-a-lod1-mg (meters 999999))) :bounds (static-spherem 0 -10 0 100) :origin-joint-index 3 ) -(defskelgroup skel-mtn-step-plat-rocks-b mtn-step-plat-rocks 6 9 - ((7 (meters 200)) (8 (meters 999999))) +(defskelgroup skel-mtn-step-plat-rocks-b mtn-step-plat-rocks mtn-step-plat-rocks-b-lod0-jg mtn-step-plat-rocks-b-idle-ja + ((mtn-step-plat-rocks-b-lod0-mg (meters 200)) (mtn-step-plat-rocks-b-lod1-mg (meters 999999))) :bounds (static-spherem 0 -10 0 100) :origin-joint-index 3 ) -(defskelgroup skel-mtn-step-plat-rocks-c mtn-step-plat-rocks 12 15 - ((13 (meters 200)) (14 (meters 999999))) +(defskelgroup skel-mtn-step-plat-rocks-c mtn-step-plat-rocks mtn-step-plat-rocks-c-lod0-jg mtn-step-plat-rocks-c-idle-ja + ((mtn-step-plat-rocks-c-lod0-mg (meters 200)) (mtn-step-plat-rocks-c-lod1-mg (meters 999999))) :bounds (static-spherem 0 -10 0 100) :origin-joint-index 3 ) @@ -977,8 +977,8 @@ ) ) -(defskelgroup skel-mtn-plat-buried-rocks mtn-plat-buried-rocks 0 3 - ((1 (meters 20)) (2 (meters 999999))) +(defskelgroup skel-mtn-plat-buried-rocks mtn-plat-buried-rocks mtn-plat-buried-rocks-lod0-jg mtn-plat-buried-rocks-idle-ja + ((mtn-plat-buried-rocks-lod0-mg (meters 20)) (mtn-plat-buried-rocks-lod1-mg (meters 999999))) :bounds (static-spherem 0 -20 0 40) :origin-joint-index 3 ) @@ -1735,6 +1735,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-plat-buried-rocks ((obj mtn-plat-buried-rocks) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) @@ -1796,8 +1802,8 @@ (art-group-get-by-name *level* "skel-mtn-plat-buried" (the-as (pointer uint32) #f)) ) -(defmethod base-plat-method-31 mtn-plat-buried ((obj mtn-plat-buried)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-buried ((obj mtn-plat-buried)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s5-0 reaction) cshape-reaction-default) @@ -1831,9 +1837,9 @@ (defmethod plat-path-sync mtn-plat-buried ((obj mtn-plat-buried)) "If the `sync` period is greater than `0` then transition the state to [[plat::35]] - otherwise, [[plat::34]] +otherwise, [[plat::34]] - @see [[sync-eased]]" +@see [[sync-eased]]" (cond ((or (logtest? (-> obj path flags) (path-control-flag not-found)) (and (not (and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status subtask-complete)))) @@ -2957,6 +2963,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-lens ((obj mtn-lens) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -2989,6 +3001,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-lens-base ((obj mtn-lens-base) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -3032,6 +3050,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-lens-floor ((obj mtn-lens-floor) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) @@ -3084,6 +3108,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-shard ((obj mtn-shard) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -3107,6 +3137,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-step-plat-rocks-a ((obj mtn-step-plat-rocks-a) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 symbol) (sv-48 type) (sv-64 collide-shape)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 0))) @@ -3185,6 +3221,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-step-plat-rocks-b ((obj mtn-step-plat-rocks-b) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 symbol) (sv-48 type) (sv-64 collide-shape)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 17) 0))) @@ -3281,6 +3323,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-step-plat-rocks-c ((obj mtn-step-plat-rocks-c) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 symbol) (sv-48 type) (sv-64 collide-shape)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 24) 0))) diff --git a/goal_src/jak2/levels/temple/rhino-wall.gc b/goal_src/jak2/levels/temple/rhino-wall.gc index 3b4f948137..3894b85527 100644 --- a/goal_src/jak2/levels/temple/rhino-wall.gc +++ b/goal_src/jak2/levels/temple/rhino-wall.gc @@ -135,6 +135,12 @@ ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! rhino-wall ((obj rhino-wall) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) (let ((s3-0 (res-lump-struct (-> obj entity) 'art-name structure)) diff --git a/goal_src/jak2/levels/underport/under-scenes.gc b/goal_src/jak2/levels/underport/under-scenes.gc index c94b7d51e7..6d5bd7ee20 100644 --- a/goal_src/jak2/levels/underport/under-scenes.gc +++ b/goal_src/jak2/levels/underport/under-scenes.gc @@ -7,26 +7,26 @@ ;; DECOMP BEGINS -(defskelgroup skel-centipede-fma centipede-fma 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-centipede-fma centipede-fma centipede-fma-lod0-jg -1 + ((centipede-fma-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 30) :origin-joint-index 3 ) -(defskelgroup skel-under-break-bridge under-break-bridge 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-under-break-bridge under-break-bridge under-break-bridge-lod0-jg -1 + ((under-break-bridge-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 -7 200) :origin-joint-index 3 ) -(defskelgroup skel-under-break-bridge-b under-break-bridge-b 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-under-break-bridge-b under-break-bridge-b under-break-bridge-b-lod0-jg -1 + ((under-break-bridge-b-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 -7 200) :origin-joint-index 3 ) -(defskelgroup skel-under-break-ceiling under-break-ceiling 0 -1 - ((1 (meters 999999))) +(defskelgroup skel-under-break-ceiling under-break-ceiling under-break-ceiling-lod0-jg -1 + ((under-break-ceiling-lod0-mg (meters 999999))) :bounds (static-spherem 0 0 0 50) :origin-joint-index 4 ) @@ -617,20 +617,20 @@ (none) ) -(defbehavior under-sig-red-shot-overhead scene-player ((arg0 object) (arg1 vector) (arg2 sparticle-launch-state)) +(defbehavior under-sig-red-shot-overhead scene-player ((arg0 process-tree) (arg1 vector) (arg2 sparticle-launch-state)) (when (not (-> self aborted?)) - (let ((s4-0 (get-process *default-dead-pool* part-tracker #x4000))) - (when s4-0 - (let ((t9-1 (method-of-type part-tracker activate))) - (t9-1 - (the-as part-tracker s4-0) - (the-as process-tree arg0) + (let ((part (get-process *default-dead-pool* part-tracker #x4000))) + (when part + (let ((activate-func (method-of-type part-tracker activate))) + (activate-func + (the-as part-tracker part) + arg0 (symbol->string (-> part-tracker symbol)) (the-as pointer #x70004000) ) ) (let ((t9-2 run-function-in-process) - (a0-3 s4-0) + (a0-3 part) (a1-5 part-tracker-init) (a2-3 (-> *part-group-id-table* 518)) (a3-1 0) @@ -651,7 +651,7 @@ t3-0 ) ) - (-> s4-0 ppointer) + (-> part ppointer) ) ) (draw-beam (-> *part-id-table* 2291) arg1 (-> arg2 sprite rot-syvel) #f #t) @@ -662,23 +662,23 @@ ) ;; WARN: Return type mismatch (pointer process) vs none. -(defbehavior under-sig-red-shot-grunt scene-player ((arg0 object) (arg1 vector) (arg2 sparticle-launch-state)) - (let ((a2-2 (vector-! (new 'stack-no-clear 'vector) arg1 (the-as vector arg0)))) - (set! (-> *part-id-table* 2291 init-specs 4 initial-valuef) (vector-length a2-2)) - (draw-beam (-> *part-id-table* 2291) (the-as vector arg0) a2-2 #f #t) +(defbehavior under-sig-red-shot-grunt scene-player ((arg0 vector) (arg1 vector) (arg2 sparticle-launch-state)) + (let ((beam-end (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) + (set! (-> *part-id-table* 2291 init-specs 4 initial-valuef) (vector-length beam-end)) + (draw-beam (-> *part-id-table* 2291) arg0 beam-end #f #t) ) - (let ((s5-0 (get-process *default-dead-pool* part-tracker #x4000))) - (when s5-0 - (let ((s4-0 (method-of-type part-tracker activate))) - (s4-0 - (the-as part-tracker s5-0) + (let ((part (get-process *default-dead-pool* part-tracker #x4000))) + (when part + (let ((activate-func (method-of-type part-tracker activate))) + (activate-func + (the-as part-tracker part) (command-get-process "grunt-fma" *target*) (symbol->string (-> part-tracker symbol)) (the-as pointer #x70004000) ) ) (let ((t9-4 run-function-in-process) - (a0-7 s5-0) + (a0-7 part) (a1-6 part-tracker-init) (a2-5 (-> *part-group-id-table* 146)) (a3-2 0) @@ -699,7 +699,7 @@ t3-0 ) ) - (-> s5-0 ppointer) + (-> part ppointer) ) ) (none) @@ -734,14 +734,14 @@ ((arg0 object) (arg1 object) (arg2 sparticle-launch-state)) (let ((f0-0 (ja-aframe-num 0))) (when (and (< 527.0 f0-0) (< f0-0 533.0)) - (let ((gp-0 (new 'stack-no-clear 'vector)) - (s5-0 (new 'stack-no-clear 'vector)) + (let ((vec1 (new 'stack-no-clear 'vector)) + (vec2 (new 'stack-no-clear 'vector)) ) (let ((v1-4 (the-as target (command-get-process "grunt-fma" *target*)))) - (set! (-> gp-0 quad) (-> self node-list data 52 bone transform trans quad)) - (set! (-> s5-0 quad) (-> v1-4 node-list data 3 bone transform trans quad)) + (set! (-> vec1 quad) (-> self node-list data 52 bone transform trans quad)) + (set! (-> vec2 quad) (-> v1-4 node-list data 3 bone transform trans quad)) ) - (under-sig-red-shot-grunt gp-0 s5-0 arg2) + (under-sig-red-shot-grunt vec1 vec2 arg2) ) ) ) diff --git a/test/decompiler/reference/jak2/characters/sig/sig-shot_REF.gc b/test/decompiler/reference/jak2/characters/sig/sig-shot_REF.gc index a8a60cb30d..f6a80868c8 100644 --- a/test/decompiler/reference/jak2/characters/sig/sig-shot_REF.gc +++ b/test/decompiler/reference/jak2/characters/sig/sig-shot_REF.gc @@ -282,7 +282,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod draw-laser-sight sig-shot ((obj sig-shot)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" (draw-beam (-> *part-id-table* 655) (-> obj tail-pos) (-> obj starting-dir) #f #t) 0 (none) @@ -546,7 +546,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! sig-shot ((obj sig-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (set! (-> obj attack-mode) 'eco-yellow) (set! (-> obj max-speed) 307200.0) @@ -554,7 +554,3 @@ (set! (-> obj timeout) (seconds 1.335)) (none) ) - - - - diff --git a/test/decompiler/reference/jak2/engine/ai/enemy_REF.gc b/test/decompiler/reference/jak2/engine/ai/enemy_REF.gc index 856f3ad142..724ec9a8b8 100644 --- a/test/decompiler/reference/jak2/engine/ai/enemy_REF.gc +++ b/test/decompiler/reference/jak2/engine/ai/enemy_REF.gc @@ -42,32 +42,32 @@ ;; definition for method 118 of type enemy (defmethod get-rand-float-range enemy ((obj enemy) (low float) (high float)) "@param low The lower bound of the range (inclusive) - @param high The upper bound of the range (exclusive) - @returns A random float in the specified range" +@param high The upper bound of the range (exclusive) +@returns A random float in the specified range" (+ low (* (rand-vu) (- high low))) ) ;; definition for method 119 of type enemy (defmethod get-rand-int enemy ((obj enemy) (high int)) "@param high The upper bound of the range (exclusive) - @returns a random integer in the range 0 to `high` - @see [[rand-vu]]" +@returns a random integer in the range 0 to `high` +@see [[rand-vu]]" (the int (* (rand-vu) (the float high))) ) ;; definition for method 121 of type enemy (defmethod get-rand-int-range enemy ((obj enemy) (low int) (high int)) "@param low The lower bound of the range (inclusive) - @param high The upper bound of the range (exclusive) - @returns A random integer in the specified range" +@param high The upper bound of the range (exclusive) +@returns A random integer in the specified range" (+ low (the int (* (rand-vu) (the float (+ (- 1 low) high))))) ) ;; definition for method 122 of type enemy (defmethod rng-hit? enemy ((obj enemy) (chance float)) "TODO - not the best name - @param chance The value to compare ([[>=]]) with the result from [[rand-vu]]. - @returns If `chance` is greater than the random draw" +@param chance The value to compare ([[>=]]) with the result from [[rand-vu]]. +@returns If `chance` is greater than the random draw" (>= chance (rand-vu)) ) @@ -1309,6 +1309,12 @@ ;; definition for method 11 of type enemy (defmethod init-from-entity! enemy ((obj enemy) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (enemy-method-114 obj) (process-drawable-from-entity! obj arg0) (enemy-method-115 obj) @@ -2778,7 +2784,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod enemy-method-92 enemy ((obj enemy) (arg0 int) (arg1 nav-poly)) "TODO - nav-poly is a guess - @abstract" +@abstract" 0 (none) ) diff --git a/test/decompiler/reference/jak2/engine/anim/aligner_REF.gc b/test/decompiler/reference/jak2/engine/anim/aligner_REF.gc index 0594da9e96..97fc0cd30d 100644 --- a/test/decompiler/reference/jak2/engine/anim/aligner_REF.gc +++ b/test/decompiler/reference/jak2/engine/anim/aligner_REF.gc @@ -140,10 +140,10 @@ ;; definition for method 10 of type align-control (defmethod align! align-control ((obj align-control) (options align-opts) (x float) (y float) (z float)) "As long as [[align-flags::0]] is not set call [[process-drawable::16]] on the process being controlled - using the arguments passed to construct a [[vector]] - <`x`, `y`, `z`, 1.0> +using the arguments passed to construct a [[vector]] - <`x`, `y`, `z`, 1.0> - @returns the `root` of the [[process-drawable]] after the method returns - @see [[process-drawable::16]]" +@returns the `root` of the [[process-drawable]] after the method returns +@see [[process-drawable::16]]" (when (not (logtest? (-> obj flags) (align-flags disabled))) (let* ((process (-> obj process)) (method-call (method-of-object process apply-alignment)) diff --git a/test/decompiler/reference/jak2/engine/camera/cam-interface_REF.gc b/test/decompiler/reference/jak2/engine/camera/cam-interface_REF.gc index c6a74c7463..cd8d997a57 100644 --- a/test/decompiler/reference/jak2/engine/camera/cam-interface_REF.gc +++ b/test/decompiler/reference/jak2/engine/camera/cam-interface_REF.gc @@ -41,9 +41,9 @@ ;; definition for function camera-pos (defun camera-pos () "Returns the `trans` vector from whatever is first determined to exist: - - [[*camera-combiner*]] - - [[*math-camera*]] - - else, [[*camera-dummy-vector*]]" +- [[*camera-combiner*]] +- [[*math-camera*]] +- else, [[*camera-dummy-vector*]]" (cond (*camera-combiner* (-> *camera-combiner* trans) diff --git a/test/decompiler/reference/jak2/engine/common_objs/base-plat_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/base-plat_REF.gc index 2420434db5..0f2e6cc1da 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/base-plat_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/base-plat_REF.gc @@ -19,9 +19,9 @@ (stop-bouncing! (_type_) none 28) (start-bouncing! (_type_) none :behavior base-plat 29) (get-art-group (_type_) art-group 30) - (base-plat-method-31 (_type_) none 31) + (init-plat-collision! (_type_) none 31) (base-plat-method-32 (_type_) none 32) - (base-plat-method-33 (_type_) none 33) + (init-plat! (_type_) none 33) ) ) @@ -45,7 +45,9 @@ ;; definition for method 33 of type base-plat ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-33 base-plat ((obj base-plat)) +(defmethod init-plat! base-plat ((obj base-plat)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." 0 (none) ) @@ -66,8 +68,8 @@ ;; WARN: Return type mismatch int vs none. (defmethod start-bouncing! base-plat ((obj base-plat)) "Sets `bouncing` to [[#t]] and sets up the clock to periodically bounce - and translate the platform via the `smush` - @see [[smush-control]]" +and translate the platform via the `smush` +@see [[smush-control]]" (activate! (-> obj smush) -1.0 60 150 1.0 1.0 (-> self clock)) (set! (-> obj bounce-time) (-> self clock frame-counter)) (set! (-> obj bouncing) #t) @@ -83,8 +85,8 @@ ;; WARN: new jak 2 until loop case, check carefully (defbehavior plat-code base-plat () "After calling [[transform-post]] for 2 consecutive frames, put the process to sleep if it's not bouncing - otherwise, continue bouncing...forever! - @see [[transform-post]]" +otherwise, continue bouncing...forever! +@see [[transform-post]]" (transform-post) (suspend) (transform-post) @@ -107,9 +109,9 @@ ;; INFO: Used lq/sq (defbehavior plat-trans base-plat () "If the platform is `bouncing`, move the platform accordingly with the [[smush-control]] - - If the amplitude of the `smush` has hit `0.0` then stop bouncing +- If the amplitude of the `smush` has hit `0.0` then stop bouncing - If we aren't bouncing however, TODO - CSHAPE" +If we aren't bouncing however, TODO - CSHAPE" (rider-trans) (cond ((-> self bouncing) @@ -162,7 +164,7 @@ ;; WARN: Return type mismatch none vs object. (defbehavior plat-event base-plat ((proc process) (arg1 int) (event-type symbol) (event event-message-block)) "Handles platform related events. Presently all this does is: - - if `event-type` is [['bonk]], then call [[base-plat:29]]" +- if `event-type` is [['bonk]], then call [[base-plat:29]]" (the-as object (case event-type (('bonk) (start-bouncing! self) @@ -231,9 +233,9 @@ ;; WARN: Return type mismatch symbol vs object. (defbehavior eco-door-event-handler eco-door ((proc process) (arg1 int) (event-type symbol) (event event-message-block)) "If the `event-type` is `'trigger`, flip the `locked` flag on the door - and play the respective sound +and play the respective sound - @unused - likely a leftover from Jak 1" +@unused - likely a leftover from Jak 1" (the-as object (case event-type (('trigger) (set! (-> self locked) (not (-> self locked))) @@ -392,7 +394,7 @@ eco-door-event-handler ;; WARN: Return type mismatch int vs none. (defmethod lock-according-to-task! eco-door ((obj eco-door)) "If the associated subtask is completed, lock the door if [[eco-door-flags:0]] is set - otherwise, lock it if [[eco-door-flags:0]] is set" +otherwise, lock it if [[eco-door-flags:0]] is set" (when (-> obj state-actor) (if (logtest? (-> obj state-actor extra perm status) (entity-perm-status subtask-complete)) (set! (-> obj locked) (logtest? (-> obj flags) (eco-door-flags ecdf01))) @@ -438,6 +440,12 @@ eco-door-event-handler ;; definition for method 11 of type eco-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! eco-door ((obj eco-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (eco-door-method-25 obj) (process-drawable-from-entity! obj arg0) (let ((door-scale (res-lump-float (-> obj entity) 'scale :default 1.0))) diff --git a/test/decompiler/reference/jak2/engine/common_objs/basebutton_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/basebutton_REF.gc index c36f3f1f35..ec83c47976 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/basebutton_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/basebutton_REF.gc @@ -321,9 +321,9 @@ ;; WARN: Return type mismatch int vs none. (defmethod send-event! basebutton ((obj basebutton) (event-type symbol)) "Prepares an [[event-message-block]] using the provided type to send an event to: - - the `notify-actor` - - every [[entity-actor]] in the `actor-group` array - @see [[entity-actor]]" +- the `notify-actor` +- every [[entity-actor]] in the `actor-group` array +@see [[entity-actor]]" (when event-type (let ((event (new 'stack-no-clear 'event-message-block))) (set! (-> event from) (process->ppointer self)) @@ -456,6 +456,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! basebutton ((obj basebutton) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (reset! obj) (set! (-> obj button-id) -1) diff --git a/test/decompiler/reference/jak2/engine/common_objs/blocking-plane_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/blocking-plane_REF.gc index a473e6ab2a..72ba0782f1 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/blocking-plane_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/blocking-plane_REF.gc @@ -177,6 +177,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! blocking-plane ((obj blocking-plane) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'path-control obj 'path 0.0 (the-as entity #f) #f)) (f30-0 (res-lump-float (-> obj entity) 'height :default 122880.0)) ) diff --git a/test/decompiler/reference/jak2/engine/common_objs/collectables_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/collectables_REF.gc index bb09d964ce..abf8542cfb 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/collectables_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/collectables_REF.gc @@ -1413,6 +1413,12 @@ ;; definition for method 11 of type eco-yellow (defmethod init-from-entity! eco-yellow ((obj eco-yellow) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type eco-yellow) (-> *FACT-bank* eco-single-inc)) (none) ) @@ -1441,6 +1447,12 @@ ;; definition for method 11 of type eco-red (defmethod init-from-entity! eco-red ((obj eco-red) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type eco-red) (-> *FACT-bank* eco-single-inc)) (none) ) @@ -1469,6 +1481,12 @@ ;; definition for method 11 of type eco-blue (defmethod init-from-entity! eco-blue ((obj eco-blue) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type eco-blue) (-> *FACT-bank* eco-single-inc)) (none) ) @@ -1497,6 +1515,12 @@ ;; definition for method 11 of type eco-green (defmethod init-from-entity! eco-green ((obj eco-green) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type eco-green) (-> *FACT-bank* eco-single-inc)) (none) ) @@ -1525,6 +1549,12 @@ ;; definition for method 11 of type health (defmethod init-from-entity! health ((obj health) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type health) (-> *FACT-bank* health-default-inc)) (none) ) @@ -1579,6 +1609,12 @@ ;; definition for method 11 of type eco-pill (defmethod init-from-entity! eco-pill ((obj eco-pill) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (init-common obj arg0 (pickup-type eco-pill-green) (-> *FACT-bank* health-small-inc)) (none) ) @@ -1820,6 +1856,12 @@ ;; definition for method 11 of type money (defmethod init-from-entity! money ((obj money) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (initialize-allocations obj) (process-drawable-from-entity! obj (-> obj entity)) (initialize-options obj 0 1024.0 (the-as fact-info #f)) @@ -2502,6 +2544,12 @@ ;; definition for method 11 of type trick-point (defmethod init-from-entity! trick-point ((obj trick-point) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (initialize-allocations obj) (process-drawable-from-entity! obj (-> obj entity)) (initialize-options obj 0 1024.0 (the-as fact-info #f)) @@ -2843,6 +2891,12 @@ ;; definition for method 11 of type eco (defmethod init-from-entity! eco ((obj eco) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((v1-1 (res-lump-value (-> obj entity) 'eco-info uint128 :time -1000000000.0))) (set! (-> obj type) (cond ((= (the-as uint v1-1) 3) diff --git a/test/decompiler/reference/jak2/engine/common_objs/conveyor_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/conveyor_REF.gc index 589479eb77..fd7daeabe0 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/conveyor_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/conveyor_REF.gc @@ -157,7 +157,7 @@ ;; WARN: Return type mismatch object vs ambient-sound. (defmethod set-and-get-ambient-sound! conveyor ((obj conveyor)) "So long as [[actor-option::16]] is not set, fetch the [[ambient-sound]] for the [[conveyor]] - and return it as well. Otherwise, set it to `0`" +and return it as well. Otherwise, set it to `0`" (let ((actor-options (res-lump-value (-> obj entity) 'options actor-option :time -1000000000.0))) (the-as ambient-sound @@ -441,6 +441,12 @@ ;; definition for method 11 of type conveyor ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! conveyor ((obj conveyor) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (reset-root! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj (the-as skeleton-group (get-art-group obj)) (the-as pair 0)) diff --git a/test/decompiler/reference/jak2/engine/common_objs/crates_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/crates_REF.gc index b201145bf7..e362c484cd 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/crates_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/crates_REF.gc @@ -1260,6 +1260,12 @@ ;; definition for method 11 of type crate (defmethod init-from-entity! crate ((obj crate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (crate-init! obj arg0) (skel-init! obj) (crate-method-38 obj) diff --git a/test/decompiler/reference/jak2/engine/common_objs/elevator_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/elevator_REF.gc index f1807f30bf..18adc66c98 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/elevator_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/elevator_REF.gc @@ -106,12 +106,12 @@ (arrived () _type_ :state 37) (elevator-method-38 (_type_) none 38) (calc-dist-between-points! (_type_ int int) none 39) - (elevator-method-40 (_type_) object 40) + (activate-elevator (_type_) none 40) (init-defaults! (_type_) none 41) - (clear-ambient-sound! (_type_) none 42) - (elevator-method-43 (_type_ vector float float) symbol 43) + (set-ambient-sound! (_type_) none 42) + (move-between-points (_type_ vector float float) symbol 43) (elevator-method-44 (_type_) symbol 44) - (elevator-method-45 (_type_) symbol 45) + (commited-to-ride? (_type_) symbol 45) (move-to-next-point! (_type_) none 46) (find-closest-point-in-path! (_type_ vector path-step symbol symbol) symbol 47) (elevator-method-48 (_type_) none 48) @@ -145,7 +145,12 @@ ) ;; definition for method 43 of type elevator -(defmethod elevator-method-43 elevator ((obj elevator) (arg0 vector) (arg1 float) (arg2 float)) +(defmethod move-between-points elevator ((obj elevator) (arg0 vector) (arg1 float) (arg2 float)) + "Move between two points on the elevator's path +@param vec TODO not sure +@param point-a The first point fetched from the elevator's path +@param point-b The second point fetched from the path +@see [[path-control]] and [[elevator]]" #f ) @@ -189,11 +194,11 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-defaults! elevator ((obj elevator)) "Initializes default settings related to the [[elevator]]: - - `elevator-xz-threshold` - - `elevator-y-threshold` - - `elevator-start-pos` - - `elevator-move-rate` - - `elevator-flags`" +- `elevator-xz-threshold` +- `elevator-y-threshold` +- `elevator-start-pos` +- `elevator-move-rate` +- `elevator-flags`" (let ((entity (-> obj entity))) (set! (-> obj params xz-threshold) ((method-of-object entity get-property-value-float) entity @@ -258,8 +263,8 @@ ;; definition for function ease-value-in-out (defun ease-value-in-out ((value float) (step-amount float)) "TODO - the math in this function is full of duplication and isn't totally clear - but if the name is to be believed, it's to slow a values grow at the beginning and end of it's range - which is obviously useful for an elevator." +but if the name is to be believed, it's to slow a values grow at the beginning and end of it's range +which is obviously useful for an elevator." (let* ((step step-amount) (f4-0 (- 1.0 step-amount)) (f3-0 (/ step (- 1.0 f4-0))) @@ -419,7 +424,7 @@ (= (-> self sticky-player-last-ride-time) (-> self clock frame-counter)) ) (('point-inside-shaft?) - (elevator-method-43 self (the-as vector (-> event param 1)) (-> self bottom-top 1) (-> self bottom-top 0)) + (move-between-points self (the-as vector (-> event param 1)) (-> self bottom-top 1) (-> self bottom-top 0)) ) (('going-down?) (< (-> (get-point-in-path! (-> self path) (new 'stack-no-clear 'vector) (-> self move-pos 1) 'interp) y) @@ -448,13 +453,13 @@ ;; INFO: Used lq/sq (defmethod find-closest-point-in-path! elevator ((obj elevator) (arg0 vector) (arg1 path-step) (arg2 symbol) (arg3 symbol)) "Finds and sets the provided [[path-step]]'s `next-pos` field to the vertex index in the path which is closest to - the provided [[vector]] +the provided [[vector]] - @param vec The point at which distance calculations are based off - @param! next-step If a point is found, `next-pos` will be set to the correct point - @param arg2 TODO - @param arg3 TODO - @returns [[#t]] if a point in the path was found" +@param vec The point at which distance calculations are based off +@param! next-step If a point is found, `next-pos` will be set to the correct point +@param arg2 TODO +@param arg3 TODO +@returns [[#t]] if a point in the path was found" (local-vars (path-point vector)) (let ((elev-params (-> obj params)) (smallest-dist 0.0) @@ -500,14 +505,14 @@ ) (the-as symbol - (and target (elevator-method-43 obj (get-trans target 0) (-> obj move-pos 0) (-> obj move-pos 1))) + (and target (move-between-points obj (get-trans target 0) (-> obj move-pos 0) (-> obj move-pos 1))) ) ) ) ;; definition for method 45 of type elevator -(defmethod elevator-method-45 elevator ((obj elevator)) - "@returns Stub, or always returns [[#t]]" +(defmethod commited-to-ride? elevator ((obj elevator)) + "@returns if the target is considered within the elevator area enough to begin descending/ascending" #t ) @@ -521,8 +526,8 @@ ;; WARN: Return type mismatch int vs none. (defmethod move-to-next-point! elevator ((obj elevator)) "If the [[*target*]] is in a valid state and there is a point to transition to in the elevator's path - do so. - @see [[elevator::47]]" +do so. +@see [[elevator::47]]" (local-vars (zero float)) (let ((target *target*)) (when (and target @@ -586,8 +591,8 @@ :event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block)) (case event-type (('ridden) - (if (elevator-method-45 self) - (logior! (-> self elevator-status) (elevator-status elevator-status-0)) + (if (commited-to-ride? self) + (logior! (-> self elevator-status) (elevator-status waiting-to-descend)) ) (elevator-event proc arg1 event-type event) ) @@ -598,7 +603,7 @@ ) :enter (behavior () (set! (-> self ride-timer) (-> self clock frame-counter)) - (logclear! (-> self elevator-status) (elevator-status elevator-status-0 moving)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-descend moving)) (logior! (-> self mask) (process-mask actor-pause)) (if (nonzero? (-> self sound)) (update-vol! (-> self sound) 0.0) @@ -607,7 +612,7 @@ ) :trans (behavior () (plat-trans) - (when (not (logtest? (-> self elevator-status) (elevator-status elevator-status-0))) + (when (not (logtest? (-> self elevator-status) (elevator-status waiting-to-descend))) (set! (-> self ride-timer) (-> self clock frame-counter)) (-> self params) (if (and (logtest? (-> self params flags) (elevator-flags elevator-flags-0)) @@ -627,7 +632,7 @@ ) :code (the-as (function none :behavior elevator) sleep-code) :post (behavior () - (logclear! (-> self elevator-status) (elevator-status elevator-status-0)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-descend)) (debug-draw (-> self path)) (plat-post) (none) @@ -643,7 +648,7 @@ #t ) (('player-ridden?) - (logtest? (-> self elevator-status) (elevator-status elevator-status-0)) + (logtest? (-> self elevator-status) (elevator-status waiting-to-descend)) ) (else (elevator-event proc arg1 event-type event) @@ -654,7 +659,7 @@ (if (not (logtest? (-> self params flags) (elevator-flags elevator-flags-7))) (process-entity-status! self (entity-perm-status no-kill) #t) ) - (logclear! (-> self elevator-status) (elevator-status elevator-status-1)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-ascend)) (when (logtest? (-> self params flags) (elevator-flags elevator-flags-2)) (logclear! (-> self params flags) (elevator-flags elevator-flags-2)) (logior! (-> self params flags) (elevator-flags elevator-flags-0)) @@ -708,7 +713,7 @@ (none) ) :trans (behavior () - (if (and (not (logtest? (-> self elevator-status) (elevator-status elevator-status-1))) + (if (and (not (logtest? (-> self elevator-status) (elevator-status waiting-to-ascend))) (= (-> self path-pos) 1.0) ) (go-virtual arrived) @@ -724,18 +729,18 @@ (none) ) :code (behavior () - (logior! (-> self elevator-status) (elevator-status elevator-status-1)) + (logior! (-> self elevator-status) (elevator-status waiting-to-ascend)) (until #f (suspend) (if (= (-> self path-pos) 1.0) - (logclear! (-> self elevator-status) (elevator-status elevator-status-1)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-ascend)) ) ) #f (none) ) :post (behavior () - (when (logtest? (-> self elevator-status) (elevator-status elevator-status-1)) + (when (logtest? (-> self elevator-status) (elevator-status waiting-to-ascend)) (seek! (-> self path-pos) (-> self path-dest) @@ -823,8 +828,8 @@ (defmethod calc-dist-between-points! elevator ((obj elevator) (path-point-x int) (path-point-y int)) "Calculates the distance between two points in the elevator's path. - @param path-point-x The index of the first point in the distance calculation, and where `next-pos` and `dist` are stored in the `path-seq` array - @param path-point-y The second point in the distance calculation" +@param path-point-x The index of the first point in the distance calculation, and where `next-pos` and `dist` are stored in the `path-seq` array +@param path-point-y The second point in the distance calculation" (set! (-> obj path-seq data path-point-x next-pos) (the float path-point-y)) (let ((point-x (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) (the float path-point-x) 'interp)) (point-y (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) (the float path-point-y) 'interp)) @@ -837,8 +842,8 @@ ;; definition for method 42 of type elevator ;; WARN: Return type mismatch int vs none. -(defmethod clear-ambient-sound! elevator ((obj elevator)) - "Might be a virtual function, but clears the object's [[ambient-sound]]" +(defmethod set-ambient-sound! elevator ((obj elevator)) + "Sets the elevator's [[ambient-sound]] up" (set! (-> obj sound) (the-as ambient-sound 0)) 0 (none) @@ -846,7 +851,9 @@ ;; definition for method 33 of type elevator ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-33 elevator ((obj elevator)) +(defmethod init-plat! elevator ((obj elevator)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." 0 (none) ) @@ -861,12 +868,14 @@ ) ;; definition for method 40 of type elevator -(defmethod elevator-method-40 elevator ((obj elevator)) - "TODO - need to figure out some flags to be confident about this" +;; WARN: Return type mismatch object vs none. +(defmethod activate-elevator elevator ((obj elevator)) + "Puts the elevator initially into the correct state. This is typically based upon game completion" (if (logtest? (-> obj params flags) (elevator-flags elevator-flags-6)) (go (method-of-object obj arrived)) (go (method-of-object obj waiting)) ) + (none) ) ;; definition for method 11 of type elevator @@ -885,10 +894,15 @@ ;; WARN: Stack slot offset 32 signed mismatch ;; WARN: Stack slot offset 32 signed mismatch ;; WARN: Stack slot offset 32 signed mismatch -;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! elevator ((obj elevator) (entity entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-32 float) (sv-36 path-control) (sv-40 target)) - (base-plat-method-31 obj) + (init-plat-collision! obj) (process-drawable-from-entity! obj entity) (initialize-skeleton obj (the-as skeleton-group (get-art-group obj)) (the-as pair 0)) (stop-bouncing! obj) @@ -946,8 +960,8 @@ (set! (-> obj root-override pause-adjust-distance) (+ 122880.0 (-> obj params xz-threshold) (total-distance (-> obj path))) ) - (clear-ambient-sound! obj) - (base-plat-method-33 obj) - (elevator-method-40 obj) + (set-ambient-sound! obj) + (init-plat! obj) + (activate-elevator obj) (none) ) diff --git a/test/decompiler/reference/jak2/engine/common_objs/generic-obs_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/generic-obs_REF.gc index 27590b3448..b3c040125b 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/generic-obs_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/generic-obs_REF.gc @@ -246,6 +246,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! swingpole ((obj swingpole) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" "Copy defaults from the entity." (stack-size-set! (-> obj main-thread) 128) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) @@ -283,7 +289,7 @@ (if (not (logtest? (the-as int a0-19) 8)) (set! v1-22 (logior v1-22 1)) ) - (set! (-> s4-1 sync-type) (the-as basic 'sync-eased)) + (set! (-> s4-1 sync-type) 'sync-eased) (set! (-> s4-1 sync-flags) (the-as sync-flags v1-22)) ) (set! (-> s4-1 period) (the-as uint 0)) @@ -341,6 +347,12 @@ ;; definition for method 11 of type process-hidden ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! process-hidden ((obj process-hidden) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" "Copy defaults from the entity." (process-entity-status! obj (entity-perm-status dead) #t) (go (method-of-object obj die)) @@ -2070,6 +2082,12 @@ ;; definition for method 11 of type med-res-level ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! med-res-level ((obj med-res-level) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 128) (let ((s4-0 (res-lump-struct arg0 'art-name structure)) (s3-0 (res-lump-struct (-> obj entity) 'level structure)) @@ -2151,6 +2169,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! part-spawner ((obj part-spawner) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 string)) (stack-size-set! (-> obj main-thread) 128) (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) @@ -2807,6 +2831,12 @@ ;; definition for method 11 of type launcher ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! launcher ((obj launcher) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 128) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((v1-4 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0)))) diff --git a/test/decompiler/reference/jak2/engine/common_objs/plat_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/plat_REF.gc index 525d06d610..4c0551f540 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/plat_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/plat_REF.gc @@ -48,8 +48,8 @@ ;; definition for method 31 of type plat ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-31 plat ((obj plat)) - "TODO - collision stuff" +(defmethod init-plat-collision! plat ((obj plat)) + "TODO - collision stuff for setting up the platform" (let ((collision-shape (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((collision-mesh (new 'process 'collide-shape-prim-mesh collision-shape (the-as uint 0) (the-as uint 0)))) (set! (-> collision-mesh prim-core collide-as) (collide-spec pusher)) @@ -74,7 +74,9 @@ ;; definition for method 33 of type plat ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-33 plat ((obj plat)) +(defmethod init-plat! plat ((obj plat)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." 0 (none) ) @@ -89,9 +91,9 @@ ;; definition for method 36 of type plat (defmethod plat-path-sync plat ((obj plat)) "If the `sync` period is greater than `0` then transition the state to [[plat::35]] - otherwise, [[plat::34]] +otherwise, [[plat::34]] - @see [[sync-eased]]" +@see [[sync-eased]]" (cond ((logtest? (-> obj path flags) (path-control-flag not-found)) (go (method-of-object obj plat-idle)) @@ -173,8 +175,14 @@ ;; definition for method 11 of type plat ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! plat ((obj plat) (entity entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask platform) (-> obj mask))) - (base-plat-method-31 obj) + (init-plat-collision! obj) (process-drawable-from-entity! obj entity) (initialize-skeleton obj (the-as skeleton-group (get-art-group obj)) (the-as pair 0)) (update-transforms (-> obj root-override)) @@ -188,7 +196,7 @@ (if (not (logtest? (-> obj fact options) (actor-option loop))) (set! v1-15 (logior v1-15 1)) ) - (set! (-> params sync-type) (the-as basic 'sync-eased)) + (set! (-> params sync-type) 'sync-eased) (set! (-> params sync-flags) (the-as sync-flags v1-15)) ) (set! (-> params period) (the-as uint 1200)) @@ -206,19 +214,19 @@ (cond ((logtest? (-> obj path flags) (path-control-flag not-found)) (set! (-> obj path-pos) 0.0) - (base-plat-method-33 obj) + (init-plat! obj) (plat-path-sync obj) ) ((> (-> obj sync period) 0) (set! (-> obj path-pos) (get-norm! (-> obj sync) 0)) (get-point-at-percent-along-path! (-> obj path) (-> obj root-override trans) (-> obj path-pos) 'interp) - (base-plat-method-33 obj) + (init-plat! obj) (plat-path-sync obj) ) (else (set! (-> obj path-pos) 0.0) (get-point-at-percent-along-path! (-> obj path) (-> obj root-override trans) (-> obj path-pos) 'interp) - (base-plat-method-33 obj) + (init-plat! obj) (plat-path-sync obj) ) ) diff --git a/test/decompiler/reference/jak2/engine/common_objs/projectile_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/projectile_REF.gc index e2c14de2b9..608d154c39 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/projectile_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/projectile_REF.gc @@ -18,7 +18,7 @@ ;; WARN: Return type mismatch int vs sound-id. (defmethod play-impact-sound! projectile ((obj projectile)) "Plays impact sound - :virtual" +:virtual" (the-as sound-id 0) ) @@ -90,9 +90,9 @@ ;; definition for method 36 of type projectile (defmethod handle-proj-hit! projectile ((obj projectile) (arg0 process) (arg1 event-message-block)) "When a projectile hits something, first deal damage via [[projectile::37]] - and increment the projectiles hit count. +and increment the projectiles hit count. - If we've met or exceeded the projectiles maximum allowed hits, switch to the [[projectile::impact]] state" +If we've met or exceeded the projectiles maximum allowed hits, switch to the [[projectile::impact]] state" (when (-> obj attack-mode) (let ((a2-1 (-> arg1 param 0))) (when (deal-damage! obj arg0 (the-as event-message-block a2-1)) @@ -123,7 +123,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod draw-laser-sight projectile ((obj projectile)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" 0 (none) ) @@ -427,7 +427,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! projectile ((obj projectile)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" 0 (none) ) @@ -664,7 +664,7 @@ ;; definition for method 39 of type projectile-bounce (defmethod play-impact-sound! projectile-bounce ((obj projectile-bounce)) "Plays impact sound - :virtual" +:virtual" (let* ((a2-0 (-> obj root-override)) (v1-0 (-> a2-0 status)) ) @@ -721,7 +721,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! projectile-bounce ((obj projectile-bounce)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj max-speed) 450560.0) (set! (-> obj timeout) (seconds 1.6)) (set! (-> obj update-velocity) projectile-bounce-update-velocity) diff --git a/test/decompiler/reference/jak2/engine/common_objs/rigid-body-plat_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/rigid-body-plat_REF.gc index 57a6c0d944..071bd09f21 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/rigid-body-plat_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/rigid-body-plat_REF.gc @@ -570,6 +570,12 @@ ;; definition for method 11 of type rigid-body-platform ;; WARN: Return type mismatch int vs none. (defmethod init-from-entity! rigid-body-platform ((obj rigid-body-platform) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask platform) (-> obj mask))) (rigid-body-object-method-32 obj) (process-drawable-from-entity! obj arg0) diff --git a/test/decompiler/reference/jak2/engine/common_objs/voicebox_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/voicebox_REF.gc index cf1eeac8df..577658cb32 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/voicebox_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/voicebox_REF.gc @@ -637,6 +637,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! judge ((obj judge) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (setup-collision obj) (init obj) (process-drawable-from-entity! obj arg0) diff --git a/test/decompiler/reference/jak2/engine/common_objs/water-anim_REF.gc b/test/decompiler/reference/jak2/engine/common_objs/water-anim_REF.gc index a22ded97e3..433e1e1ea0 100644 --- a/test/decompiler/reference/jak2/engine/common_objs/water-anim_REF.gc +++ b/test/decompiler/reference/jak2/engine/common_objs/water-anim_REF.gc @@ -705,6 +705,12 @@ ;; definition for method 11 of type water-anim ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! water-anim ((obj water-anim) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (water-anim-method-27 obj) (reset-root! obj) (water-anim-init! obj) diff --git a/test/decompiler/reference/jak2/engine/debug/history_REF.gc b/test/decompiler/reference/jak2/engine/debug/history_REF.gc index b526f649ed..f0d405d9be 100644 --- a/test/decompiler/reference/jak2/engine/debug/history_REF.gc +++ b/test/decompiler/reference/jak2/engine/debug/history_REF.gc @@ -183,9 +183,9 @@ ;; WARN: Return type mismatch int vs none. (defmethod clear-history-entries! history ((obj history)) "Iterates through each [[history-elt]] in the `elt` dynamic array - For each entry: - - clear `timestamp` - - clear `record-tag`" +For each entry: +- clear `timestamp` +- clear `record-tag`" (set! (-> obj alloc-index) 0) (countdown (v1-0 (-> obj allocated-length)) (let ((a1-3 (-> obj elts v1-0))) @@ -208,10 +208,10 @@ ;; WARN: new jak 2 until loop case, check carefully (defmethod clear-record-tags! history ((obj history) (arg0 history-channel) (arg1 uint) (arg2 uint)) "First grab the latest [[history-elt]] at `alloc-index` - 1. update it's `channel`, `record-id` and `owner` from the provided args - 2. - if it's `record-tag` is zero -- return it - - otherwise, iterate through all `elts` until one is found that does not match it's `timestamp` - - if not `0` out the `record-tag` for that elt and continue iteration" +1. update it's `channel`, `record-id` and `owner` from the provided args +2. - if it's `record-tag` is zero -- return it +- otherwise, iterate through all `elts` until one is found that does not match it's `timestamp` +- if not `0` out the `record-tag` for that elt and continue iteration" (let* ((t1-0 (-> obj alloc-index)) (v1-0 (-> obj elts)) (v0-0 (-> v1-0 t1-0)) @@ -262,9 +262,9 @@ ;; definition for method 10 of type history-iterator (defmethod update-entries! history-iterator ((obj history-iterator)) "Iterate through each [[history-elt]] in [[*history*]] - - If we hit the end set `done?` to true - - If the `timestamp` on the elt, minus the current framecounter exceeds `max-age`, we are also done, return #f - - However if we find an elt who's `owner` matches the iterator's, break out early returning that `elt`" +- If we hit the end set `done?` to true +- If the `timestamp` on the elt, minus the current framecounter exceeds `max-age`, we are also done, return #f +- However if we find an elt who's `owner` matches the iterator's, break out early returning that `elt`" (let ((v1-0 *history*) (a1-2 (-> *display* base-clock frame-counter)) ) diff --git a/test/decompiler/reference/jak2/engine/debug/memory-usage_REF.gc b/test/decompiler/reference/jak2/engine/debug/memory-usage_REF.gc index 1f90464115..8f4f539ce2 100644 --- a/test/decompiler/reference/jak2/engine/debug/memory-usage_REF.gc +++ b/test/decompiler/reference/jak2/engine/debug/memory-usage_REF.gc @@ -1,3 +1,4 @@ +;;-*-Lisp-*- (in-package goal) ;; this file is debug only @@ -63,9 +64,9 @@ ;; definition for function mem-size (defun mem-size ((data basic) (inspect-usage? symbol) (arg2 int)) "@param data The [[basic]] to call `mem-usage` on - @param inspect-usage? Set to [[#t]] if `inspect` should be called on the resulting [[memory-usage-block]] - @param arg2 TODO - unsure, some sort of bitfield - @returns The total memory footprint of the provided [[basic]]" +@param inspect-usage? Set to [[#t]] if `inspect` should be called on the resulting [[memory-usage-block]] +@param arg2 TODO - unsure, some sort of bitfield +@returns The total memory footprint of the provided [[basic]]" (let ((block (new 'stack 'memory-usage-block))) (mem-usage data block arg2) (if inspect-usage? @@ -78,11 +79,11 @@ ;; definition for method 14 of type level (defmethod compute-memory-usage! level ((obj level) (force? symbol)) "Calculates the memory usage of the level, returns and stores the [[memory-usage-block]] - in `mem-usage-block` as well as the total size in `mem-usage` +in `mem-usage-block` as well as the total size in `mem-usage` - @param force? - Will re-compute the usage if set to [[#t]], even if `mem-usage` has been set to a non-zero value - @returns The [[memory-usage-block]] representing the footprint of the level - @see [[memory-usage-block::10]]" +@param force? - Will re-compute the usage if set to [[#t]], even if `mem-usage` has been set to a non-zero value +@returns The [[memory-usage-block]] representing the footprint of the level +@see [[memory-usage-block::10]]" (if (zero? (-> obj mem-usage-block)) (set! (-> obj mem-usage-block) (new 'debug 'memory-usage-block)) ) @@ -575,6 +576,3 @@ 0 ) - - - diff --git a/test/decompiler/reference/jak2/engine/debug/nav/mysql-nav-graph_REF.gc b/test/decompiler/reference/jak2/engine/debug/nav/mysql-nav-graph_REF.gc index fd75b4d1f6..18f084c289 100644 --- a/test/decompiler/reference/jak2/engine/debug/nav/mysql-nav-graph_REF.gc +++ b/test/decompiler/reference/jak2/engine/debug/nav/mysql-nav-graph_REF.gc @@ -335,7 +335,7 @@ ;; definition for method 13 of type mysql-nav-graph (defmethod alloc-new-node! mysql-nav-graph ((obj mysql-nav-graph)) "Allocates a new `[[mysql-nav-node]]`, if `node-array`'s `length` exceeds `3000` return `-1` - otherwise, return the new size of the array" +otherwise, return the new size of the array" (cond ((>= (-> obj node-array length) 3000) (format #t "mysql-nav-graph : nodes buffer too small, increase NAV_GRAPH_EDITOR_NODE_COUNT~%") @@ -360,7 +360,7 @@ ;; definition for method 14 of type mysql-nav-graph (defmethod alloc-new-edge! mysql-nav-graph ((obj mysql-nav-graph)) "Allocates a new `[[mysql-nav-edge]]`, if `edge-array`'s `length` exceeds `5000` return `-1` - otherwise, return the new size of the array" +otherwise, return the new size of the array" (cond ((>= (-> obj edge-array length) 5000) (format #t "mysql-nav-graph : edges buffer too small, increase NAV_GRAPH_EDITOR_EDGE_COUNT~%") @@ -385,7 +385,7 @@ ;; definition for method 15 of type mysql-nav-graph (defmethod indexof-visnode mysql-nav-graph ((obj mysql-nav-graph) (edge-id int) (node-id int)) "Returns the index in the `visnode-array` whom's [[mysql-nav-visnode]] has the provided `runtime-edge-id` and `runtime-node-id` - if none exist, return `-1`" +if none exist, return `-1`" (dotimes (v1-0 (-> obj visnode-array length)) (let ((a3-2 (-> obj visnode-array data v1-0))) (if (and (= (-> a3-2 runtime-edge-id) edge-id) (= (-> a3-2 runtime-node-id) node-id)) @@ -399,9 +399,9 @@ ;; definition for method 16 of type mysql-nav-graph (defmethod alloc-new-visnode! mysql-nav-graph ((obj mysql-nav-graph) (edge-id int) (node-id int)) "Potentially allocates a new `[[mysql-nav-visnode]]`: - - if `visnode-array`'s `length` exceeds `3000` return `-1` - - otherwise, if the node already exists, TODO - - if the node does not already exist, create it!" +- if `visnode-array`'s `length` exceeds `3000` return `-1` +- otherwise, if the node already exists, TODO +- if the node does not already exist, create it!" (cond ((>= (-> obj visnode-array length) 3000) (format #t "mysql-nav-graph : visnodes buffer too small, increase NAV_GRAPH_EDITOR_VISNODE_COUNT~%") @@ -802,7 +802,7 @@ ;; definition for method 11 of type mysql-nav-graph (defmethod indexof-nav-node mysql-nav-graph ((obj mysql-nav-graph) (node-id int)) "Iterate through the `node-array` and return the index for the first [[mysql-nav-node]] whom's `nav_node_id` matches the provided id - returns `-1` if none is found" +returns `-1` if none is found" (dotimes (v1-0 (-> obj node-array length)) (if (= node-id (-> (the-as mysql-nav-node (-> obj node-array data v1-0)) nav_node_id)) (return v1-0) @@ -814,7 +814,7 @@ ;; definition for method 12 of type mysql-nav-graph (defmethod indexof-nav-edge mysql-nav-graph ((obj mysql-nav-graph) (edge-id int)) "Iterate through the `edge-array` and return the index for the first [[mysql-nav-edge]] whom's `nav_edge_id` matches the provided id - returns `-1` if none is found" +returns `-1` if none is found" (dotimes (v1-0 (-> obj edge-array length)) (if (= edge-id (-> (the-as mysql-nav-edge (+ (+ (* 80 v1-0) 12) (the-as int (-> obj edge-array)))) nav_edge_id)) (return v1-0) @@ -1268,7 +1268,6 @@ ) ;; definition for method 10 of type mysql-nav-graph -;; WARN: Failed load: (set! v1-36 (l.wu (+ v1-35 32))) at op 97 (defmethod exec-sql! mysql-nav-graph ((obj mysql-nav-graph)) (format #t "Saving nodes ...~%") (dotimes (s5-0 (-> obj node-array length)) diff --git a/test/decompiler/reference/jak2/engine/debug/sampler_REF.gc b/test/decompiler/reference/jak2/engine/debug/sampler_REF.gc index ad5fa79290..1cf18d52ea 100644 --- a/test/decompiler/reference/jak2/engine/debug/sampler_REF.gc +++ b/test/decompiler/reference/jak2/engine/debug/sampler_REF.gc @@ -15,7 +15,7 @@ ;; definition for symbol *sampler-count*, type int (define *sampler-count* "Incremented everytime a metric is sampled - @see [[timer0-handler]]" 0) +@see [[timer0-handler]]" 0) ;; definition (debug) for function timer0-handler ;; ERROR: function was not converted to expressions. Cannot decompile. @@ -30,8 +30,8 @@ ;; WARN: Return type mismatch int vs none. (defun-debug sampler-start () "Reset the [[timer-bank]] EE registers. - - If [[*sampler-mem*]] is undefined, allocate 16.7MB in the debug segment - - and when [[*sampler-mem*]] is defined, initialize the [[timer-bank]] fully. Reset [[*sampler-count*]] to 0 as well" +- If [[*sampler-mem*]] is undefined, allocate 16.7MB in the debug segment +- and when [[*sampler-mem*]] is defined, initialize the [[timer-bank]] fully. Reset [[*sampler-count*]] to 0 as well" (set! (-> (the-as timer-bank #x10000000) mode) (new 'static 'timer-mode)) (set! (-> (the-as timer-bank #x10000000) count) (the-as uint 0)) (set! (-> (the-as timer-bank #x10000000) comp) *sampler-compare*) diff --git a/test/decompiler/reference/jak2/engine/debug/viewer_REF.gc b/test/decompiler/reference/jak2/engine/debug/viewer_REF.gc index 0218cb1b8a..0c86b180c5 100644 --- a/test/decompiler/reference/jak2/engine/debug/viewer_REF.gc +++ b/test/decompiler/reference/jak2/engine/debug/viewer_REF.gc @@ -218,6 +218,12 @@ ;; definition for method 11 of type viewer (defmethod init-from-entity! viewer ((obj viewer) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! *viewer* obj) (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) diff --git a/test/decompiler/reference/jak2/engine/draw/drawable_REF.gc b/test/decompiler/reference/jak2/engine/draw/drawable_REF.gc index 93ffa760d6..035fee7d9a 100644 --- a/test/decompiler/reference/jak2/engine/draw/drawable_REF.gc +++ b/test/decompiler/reference/jak2/engine/draw/drawable_REF.gc @@ -150,7 +150,7 @@ ) ;; definition (debug) for function vis-cull-debug -;; WARN: Failed load: (set! v1-2 (l.b (+ v1-1 #x38a0))) at op 2 +;; ERROR: Failed load: (set! v1-2 (l.b (+ v1-1 #x38a0))) at op 2 ;; ERROR: Unsupported inline assembly instruction kind - [addiu a0, a0, 56] (defun-debug vis-cull-debug ((arg0 work-area) (arg1 int)) (local-vars (v1-0 int) (a0-2 int)) @@ -217,10 +217,10 @@ ;; WARN: Return type mismatch int vs none. (defmethod collect-regions drawable ((obj drawable) (arg0 sphere) (arg1 int) (arg2 region-prim-list)) "Determines the number of [[drawable]]s in the `obj` that overlap the given `area-of-interest` this number is stored in the `region-list`'s item count - @param area-of-interest The area defined by a sphere that we care about overlaps - @param _count The amount of [[drawable]]s in the object to enumerate through - @param! region-list Stores the overlapping regions and a count for how many were found - @returns none" +@param area-of-interest The area defined by a sphere that we care about overlaps +@param _count The amount of [[drawable]]s in the object to enumerate through +@param! region-list Stores the overlapping regions and a count for how many were found +@returns none" 0 (none) ) diff --git a/test/decompiler/reference/jak2/engine/entity/entity-table_REF.gc b/test/decompiler/reference/jak2/engine/entity/entity-table_REF.gc index bcbec879b5..e01645deaa 100644 --- a/test/decompiler/reference/jak2/engine/entity/entity-table_REF.gc +++ b/test/decompiler/reference/jak2/engine/entity/entity-table_REF.gc @@ -192,10 +192,10 @@ ;; WARN: Return type mismatch basic vs entity-info. (defun entity-info-lookup ((arg0 type)) "Given a type, return the [[entity-info]] from [[*entity-info*]] whos type - matches the `ptype` field. Set's `method 13` on said type that returns the `length` - off the [[entity-info]] +matches the `ptype` field. Set's `method 13` on said type that returns the `length` +off the [[entity-info]] - If nothing matches, set `method 13` to `#f` and return `#f`" +If nothing matches, set `method 13` to `#f` and return `#f`" (the-as entity-info (cond ((nonzero? (-> arg0 method-table 13)) (-> arg0 method-table 13) diff --git a/test/decompiler/reference/jak2/engine/game/task/task-arrow_REF.gc b/test/decompiler/reference/jak2/engine/game/task/task-arrow_REF.gc index 188234fc45..f69f606d5d 100644 --- a/test/decompiler/reference/jak2/engine/game/task/task-arrow_REF.gc +++ b/test/decompiler/reference/jak2/engine/game/task/task-arrow_REF.gc @@ -37,6 +37,9 @@ ;; definition of type task-arrow (deftype task-arrow (process-drawable) + "Despite the name, these are actually the beams of light that highlight +various objections. Such as the flag in the first ruins mission +or collectable items on the ground (jetboard / weapon upgrades / etc)" ((pos vector :inline :offset-assert 208) (theta float :offset-assert 224) (phi float :offset-assert 228) diff --git a/test/decompiler/reference/jak2/engine/game/task/task-control-h_REF.gc b/test/decompiler/reference/jak2/engine/game/task/task-control-h_REF.gc index 3254cc4fc3..e3462d84f8 100644 --- a/test/decompiler/reference/jak2/engine/game/task/task-control-h_REF.gc +++ b/test/decompiler/reference/jak2/engine/game/task/task-control-h_REF.gc @@ -1378,7 +1378,7 @@ :flag-assert #xa00000010 (:methods (new (symbol type game-task-actor) _type_ 0) - (game-task-control-method-9 (_type_) game-task-event 9) + (get-current-task-event (_type_) game-task-event 9) ) ) diff --git a/test/decompiler/reference/jak2/engine/game/task/task-control_REF.gc b/test/decompiler/reference/jak2/engine/game/task/task-control_REF.gc index 6bc318aa4e..fdb7c09d97 100644 --- a/test/decompiler/reference/jak2/engine/game/task/task-control_REF.gc +++ b/test/decompiler/reference/jak2/engine/game/task/task-control_REF.gc @@ -1333,7 +1333,7 @@ ) ;; definition for method 9 of type game-task-control -(defmethod game-task-control-method-9 game-task-control ((obj game-task-control)) +(defmethod get-current-task-event game-task-control ((obj game-task-control)) (with-pp (let ((gp-0 (new 'static 'game-task-event :scene #f))) (let ((s5-0 #f)) diff --git a/test/decompiler/reference/jak2/engine/geometry/path-h_REF.gc b/test/decompiler/reference/jak2/engine/geometry/path-h_REF.gc index e5510fb06e..3655c86c54 100644 --- a/test/decompiler/reference/jak2/engine/geometry/path-h_REF.gc +++ b/test/decompiler/reference/jak2/engine/geometry/path-h_REF.gc @@ -4,9 +4,9 @@ ;; definition of type path-control (deftype path-control (basic) "An abstraction around a [[curve]], providing tools such as: - - debug drawing - - conveniant vertex accessing - - vertex finding/searching algorithms" +- debug drawing +- conveniant vertex accessing +- vertex finding/searching algorithms" ((flags path-control-flag :offset-assert 4) (name symbol :offset-assert 8) (process process-drawable :offset-assert 12) diff --git a/test/decompiler/reference/jak2/engine/geometry/path_REF.gc b/test/decompiler/reference/jak2/engine/geometry/path_REF.gc index 55787d96ee..1d9185edcf 100644 --- a/test/decompiler/reference/jak2/engine/geometry/path_REF.gc +++ b/test/decompiler/reference/jak2/engine/geometry/path_REF.gc @@ -86,16 +86,16 @@ ;; INFO: Used lq/sq (defmethod get-point-in-path! path-control ((obj path-control) (ret vector) (idx float) (search-type symbol)) "Depending on the value of `idx`, the result can be quite different: - - if `idx` is less than `0.0` - return the first vertex in the path - - if `idx` is greater than the number of vertices in the path, return the last vertex - - if `search-type` is equal to `exact` OR `idx` is an integral number (ex 1.0), return that vertex - - otherwise, do a linear interpolation between the vertex at `idx` (truncated) and the next vertex - using the fractional component of `idx` as the interpolant, return this result +- if `idx` is less than `0.0` - return the first vertex in the path +- if `idx` is greater than the number of vertices in the path, return the last vertex +- if `search-type` is equal to `exact` OR `idx` is an integral number (ex 1.0), return that vertex +- otherwise, do a linear interpolation between the vertex at `idx` (truncated) and the next vertex +using the fractional component of `idx` as the interpolant, return this result - @param! ret The [[vector]] that is used to hold the return value - @param idx Either the vertex index or also partially the interpolant in a LERP - @param search-type The only recognized value is `exact` - @returns Either a distinct vertex along the path, or some fractional point between two vertices" +@param! ret The [[vector]] that is used to hold the return value +@param idx Either the vertex index or also partially the interpolant in a LERP +@param search-type The only recognized value is `exact` +@returns Either a distinct vertex along the path, or some fractional point between two vertices" (let ((num-vertices (-> obj curve num-cverts)) (vert-idx (the float (the int idx))) ) @@ -146,20 +146,20 @@ ;; definition for method 14 of type path-control (defmethod get-point-at-percent-along-path! path-control ((obj path-control) (ret vector) (percent float) (search-type symbol)) "@param! ret The [[vector]] that is used to hold the return value - @param percent The percentage along the path - @param search-type The only recognized value is `exact` - @returns the point closest to some arbitrary percentage along the path - @see [[path-control::10]]" +@param percent The percentage along the path +@param search-type The only recognized value is `exact` +@returns the point closest to some arbitrary percentage along the path +@see [[path-control::10]]" (get-point-in-path! obj ret (* percent (the float (+ (-> obj curve num-cverts) -1))) search-type) ) ;; definition for method 14 of type curve-control (defmethod get-point-at-percent-along-path! curve-control ((obj curve-control) (arg0 vector) (arg1 float) (arg2 symbol)) "@param! ret The [[vector]] that is used to hold the return value - @param percent The percentage along the path - @param search-type The only recognized value is `exact` - @returns the point closest to some arbitrary percentage along the path - @see [[path-control::10]]" +@param percent The percentage along the path +@param search-type The only recognized value is `exact` +@returns the point closest to some arbitrary percentage along the path +@see [[path-control::10]]" (if (not (logtest? (-> obj flags) (path-control-flag not-found))) (curve-evaluate! arg0 @@ -176,16 +176,16 @@ ;; definition for method 10 of type curve-control (defmethod get-point-in-path! curve-control ((obj curve-control) (arg0 vector) (arg1 float) (arg2 symbol)) "Depending on the value of `idx`, the result can be quite different: - - if `idx` is less than `0.0` - return the first vertex in the path - - if `idx` is greater than the number of vertices in the path, return the last vertex - - if `search-type` is equal to `exact` OR `idx` is an integral number (ex 1.0), return that vertex - - otherwise, do a linear interpolation between the vertex at `idx` (truncated) and the next vertex - using the fractional component of `idx` as the interpolant, return this result +- if `idx` is less than `0.0` - return the first vertex in the path +- if `idx` is greater than the number of vertices in the path, return the last vertex +- if `search-type` is equal to `exact` OR `idx` is an integral number (ex 1.0), return that vertex +- otherwise, do a linear interpolation between the vertex at `idx` (truncated) and the next vertex +using the fractional component of `idx` as the interpolant, return this result - @param! ret The [[vector]] that is used to hold the return value - @param idx Either the vertex index or also partially the interpolant in a LERP - @param search-type The only recognized value is `exact` - @returns Either a distinct vertex along the path, or some fractional point between two vertices" +@param! ret The [[vector]] that is used to hold the return value +@param idx Either the vertex index or also partially the interpolant in a LERP +@param search-type The only recognized value is `exact` +@returns Either a distinct vertex along the path, or some fractional point between two vertices" (if (not (logtest? (-> obj flags) (path-control-flag not-found))) (curve-evaluate! arg0 @@ -202,15 +202,15 @@ ;; definition for method 26 of type path-control (defmethod displacement-between-two-points! path-control ((obj path-control) (ret vector) (idx float) (mag float)) "Return value can differ quite a bit: - - If [[path-control-flag::4]] is set OR there are less than 2 vertices OR `idx` is less than `0.0` - return [[*null-vector*]] - - Otherwise, find the scaled (by `mag`) displacement vector between two points in the path: - - If `idx` is not beyond the second last vertex, the result is between vertex `idx` and `idx+1` - - else, the result is between the second last vertex and the last +- If [[path-control-flag::4]] is set OR there are less than 2 vertices OR `idx` is less than `0.0` - return [[*null-vector*]] +- Otherwise, find the scaled (by `mag`) displacement vector between two points in the path: +- If `idx` is not beyond the second last vertex, the result is between vertex `idx` and `idx+1` +- else, the result is between the second last vertex and the last - @param! ret The [[vector]] that is used to hold the return value - @param idx The vertex index - @param mag The magnitude to scale the resulting displacement vector by - @returns The displacement [[vector]] between two points in the path, the last 2, or the [[*null-vector*]]" +@param! ret The [[vector]] that is used to hold the return value +@param idx The vertex index +@param mag The magnitude to scale the resulting displacement vector by +@returns The displacement [[vector]] between two points in the path, the last 2, or the [[*null-vector*]]" (let ((num-vertices (-> obj curve num-cverts)) (vert-idx (the float (the int idx))) ) @@ -232,17 +232,17 @@ ;; definition for method 12 of type path-control (defmethod displacement-between-two-points-copy! path-control ((obj path-control) (ret vector) (idx float) (mag float)) "Calls [[path-control::26]] with the provided args - @see [[path-control::26]]" +@see [[path-control::26]]" (displacement-between-two-points! obj ret idx mag) ) ;; definition for method 15 of type path-control (defmethod displacement-between-points-at-percent-scaled! path-control ((obj path-control) (ret vector) (percent float) (mag float)) "Calls [[path-control::12], with the `idx` at a given percent along the path - @param ret The [[vector]] that is used to hold the return value - @param percent The percentage along the path to find the first index - @param mag Multiplied by the number of points in the path and scales the resulting vector - @returns The displacement between the last two points of the path scaled to the magnitude equal to the number of points in the path" +@param ret The [[vector]] that is used to hold the return value +@param percent The percentage along the path to find the first index +@param mag Multiplied by the number of points in the path and scales the resulting vector +@returns The displacement between the last two points of the path scaled to the magnitude equal to the number of points in the path" (displacement-between-two-points-copy! obj ret @@ -254,10 +254,10 @@ ;; definition for method 13 of type path-control (defmethod displacement-between-two-points-normalized! path-control ((obj path-control) (ret vector) (idx float)) "Calls [[path-control::26], with the provided `idx` - @param! ret The [[vector]] the result is stored within - @param idx The vertex index - @returns The resulting displacement vector, normalized - @see [[path-control::26]]" +@param! ret The [[vector]] the result is stored within +@param idx The vertex index +@returns The resulting displacement vector, normalized +@see [[path-control::26]]" (displacement-between-two-points! obj ret idx 1.0) (vector-normalize! ret 1.0) ) @@ -265,26 +265,26 @@ ;; definition for method 16 of type path-control (defmethod displacement-between-points-at-percent-normalized! path-control ((obj path-control) (ret vector) (percent float)) "Calls [[path-control::13], with the `idx` at a given percent along the path - @param! ret The [[vector]] the result is stored within - @param percent The percentage along the path - @returns The resulting displacement vector, normalized - @see [[path-control::13]] - @see [[path-control::14]]" +@param! ret The [[vector]] the result is stored within +@param percent The percentage along the path +@returns The resulting displacement vector, normalized +@see [[path-control::13]] +@see [[path-control::14]]" (displacement-between-two-points-normalized! obj ret (* percent (the float (+ (-> obj curve num-cverts) -1)))) ) ;; definition for method 26 of type curve-control (defmethod displacement-between-two-points! curve-control ((obj curve-control) (arg0 vector) (arg1 float) (arg2 float)) "Return value can differ quite a bit: - - If [[path-control-flag::4]] is set OR there are less than 2 vertices OR `idx` is less than `0.0` - return [[*null-vector*]] - - Otherwise, find the scaled (by `mag`) displacement vector between two points in the path: - - If `idx` is not beyond the second last vertex, the result is between vertex `idx` and `idx+1` - - else, the result is between the second last vertex and the last +- If [[path-control-flag::4]] is set OR there are less than 2 vertices OR `idx` is less than `0.0` - return [[*null-vector*]] +- Otherwise, find the scaled (by `mag`) displacement vector between two points in the path: +- If `idx` is not beyond the second last vertex, the result is between vertex `idx` and `idx+1` +- else, the result is between the second last vertex and the last - @param! ret The [[vector]] that is used to hold the return value - @param idx The vertex index - @param mag The magnitude to scale the resulting displacement vector by - @returns The displacement [[vector]] between two points in the path, the last 2, or the [[*null-vector*]]" +@param! ret The [[vector]] that is used to hold the return value +@param idx The vertex index +@param mag The magnitude to scale the resulting displacement vector by +@returns The displacement [[vector]] between two points in the path, the last 2, or the [[*null-vector*]]" (when (not (logtest? (-> obj flags) (path-control-flag not-found))) (let ((s4-0 (new 'stack-no-clear 'vector))) (curve-evaluate! @@ -326,28 +326,28 @@ ;; definition for method 12 of type curve-control (defmethod displacement-between-two-points-copy! curve-control ((obj curve-control) (ret vector) (percent float) (mag float)) "Calls [[path-control::26]] with the provided args - @see [[path-control::26]]" +@see [[path-control::26]]" (displacement-between-two-points! obj ret (/ percent (the float (+ (-> obj curve num-cverts) -1))) mag) ) ;; definition for method 15 of type curve-control (defmethod displacement-between-points-at-percent-scaled! curve-control ((obj curve-control) (ret vector) (idx float) (mag float)) "Calls [[path-control::12], with the `idx` at a given percent along the path - @param ret The [[vector]] that is used to hold the return value - @param percent The percentage along the path to find the first index - @param mag Multiplied by the number of points in the path and scales the resulting vector - @returns The displacement between the last two points of the path scaled to the magnitude equal to the number of points in the path" +@param ret The [[vector]] that is used to hold the return value +@param percent The percentage along the path to find the first index +@param mag Multiplied by the number of points in the path and scales the resulting vector +@returns The displacement between the last two points of the path scaled to the magnitude equal to the number of points in the path" (displacement-between-two-points! obj ret idx mag) ) ;; definition for method 16 of type curve-control (defmethod displacement-between-points-at-percent-normalized! curve-control ((obj curve-control) (ret vector) (percent float)) "Calls [[path-control::13], with the `idx` at a given percent along the path - @param! ret The [[vector]] the result is stored within - @param percent The percentage along the path - @returns The resulting displacement vector, normalized - @see [[path-control::13]] - @see [[path-control::14]]" +@param! ret The [[vector]] the result is stored within +@param percent The percentage along the path +@returns The resulting displacement vector, normalized +@see [[path-control::13]] +@see [[path-control::14]]" (displacement-between-two-points! obj ret percent 0.01) (vector-normalize! ret 1.0) ) @@ -355,10 +355,10 @@ ;; definition for method 13 of type curve-control (defmethod displacement-between-two-points-normalized! curve-control ((obj curve-control) (ret vector) (idx float)) "Calls [[path-control::26], with the provided `idx` - @param! ret The [[vector]] the result is stored within - @param idx The vertex index - @returns The resulting displacement vector, normalized - @see [[path-control::26]]" +@param! ret The [[vector]] the result is stored within +@param idx The vertex index +@returns The resulting displacement vector, normalized +@see [[path-control::26]]" (displacement-between-points-at-percent-normalized! obj ret @@ -370,8 +370,8 @@ ;; INFO: Used lq/sq (defmethod get-furthest-point-on-path path-control ((obj path-control) (point vector)) "@param point The point to calculate distance from - @returns the `vertex-idx.interpolant` value to the point on the path furthest away from the `point` - @see [[path-control::10]]" +@returns the `vertex-idx.interpolant` value to the point on the path furthest away from the `point` +@see [[path-control::10]]" (let ((curr-point (new 'stack-no-clear 'vector)) (next-point (new 'stack-no-clear 'vector)) (given-point (new 'stack-no-clear 'vector)) @@ -406,8 +406,8 @@ ;; definition for method 23 of type path-control (defmethod get-path-percentage-at-furthest-point path-control ((obj path-control) (point vector)) "@param point The point to calculate distance from - @returns the percentage of path completion from the point on the path furthest away from the `point` - @see [[path-control::14]]" +@returns the percentage of path completion from the point on the path furthest away from the `point` +@see [[path-control::14]]" (/ (get-furthest-point-on-path obj point) (the float (+ (-> obj curve num-cverts) -1))) ) diff --git a/test/decompiler/reference/jak2/engine/gfx/hw/gs_REF.gc b/test/decompiler/reference/jak2/engine/gfx/hw/gs_REF.gc index 2716377f5b..0dd12bc17a 100644 --- a/test/decompiler/reference/jak2/engine/gfx/hw/gs_REF.gc +++ b/test/decompiler/reference/jak2/engine/gfx/hw/gs_REF.gc @@ -127,8 +127,8 @@ ;; definition of type gs-display (deftype gs-display (uint64) "the GS's DISPLAY registers make settings for the display position on the screen regarding - information on Rectangular Area Read Output Circuit n for the PCRTC. - write-only" +information on Rectangular Area Read Output Circuit n for the PCRTC. +write-only" ((dx uint16 :offset 0 :size 12) (dy uint16 :offset 12 :size 11) (magh uint8 :offset 23 :size 4) @@ -144,7 +144,7 @@ ;; definition of type gs-bgcolor (deftype gs-bgcolor (uint64) "the GS's BGCOLOR register sets the background color of the PCRTC with RGB value. - write-only" +write-only" ((r uint8 :offset 0 :size 8) (g uint8 :offset 8 :size 8) (b uint8 :offset 16 :size 8) @@ -157,10 +157,10 @@ ;; definition of type gs-csr (deftype gs-csr (uint64) "the GS's CSR register sets and obtains various GS statuses. - read-write. the fields have different effects depending on whether they're being read from - or written to. +read-write. the fields have different effects depending on whether they're being read from +or written to. - bits 5 and 6 (0x20 and 0x40) should be zero" +bits 5 and 6 (0x20 and 0x40) should be zero" ((signal uint8 :offset 0 :size 1) (finish uint8 :offset 1 :size 1) (hsint uint8 :offset 2 :size 1) diff --git a/test/decompiler/reference/jak2/engine/gfx/hw/video_REF.gc b/test/decompiler/reference/jak2/engine/gfx/hw/video_REF.gc index 0aa23715ab..205034024e 100644 --- a/test/decompiler/reference/jak2/engine/gfx/hw/video_REF.gc +++ b/test/decompiler/reference/jak2/engine/gfx/hw/video_REF.gc @@ -5,11 +5,11 @@ ;; WARN: Return type mismatch int vs none. (defun set-video-mode ((tv-format symbol)) "Set related settings to the video mode in the settings, [[*video-params*]] and the [[*video-mode*]] - `ntsc` has a [[*video-mode*]] value of `0`, where as `pal` has a value of `1` +`ntsc` has a [[*video-mode*]] value of `0`, where as `pal` has a value of `1` - Will also set a bunch of common settings related to profiling and the camera to finalize the switch +Will also set a bunch of common settings related to profiling and the camera to finalize the switch - @param tv-format Recognizes `ntsc` and `pal`" +@param tv-format Recognizes `ntsc` and `pal`" (case tv-format (('ntsc) (set! (-> *setting-control* user-default display-dx) 0) @@ -49,7 +49,7 @@ ;; WARN: Return type mismatch int vs none. (defun set-aspect-ratio ((aspect symbol)) "Set [[*video-params*]] aspect-ratio related settings based on the mode provided. - @param aspect Recognizes `aspect4x3` and `aspect16x9`" +@param aspect Recognizes `aspect4x3` and `aspect16x9`" (case aspect (('aspect4x3) (set! (-> *video-params* relative-x-scale) 1.0) @@ -74,7 +74,7 @@ ;; WARN: Return type mismatch int vs none. (defun set-progressive-scan ((val symbol)) "Flip the progressive scan setting flag depending on the value provided - @param val The value to set the progressive scan flag to" +@param val The value to set the progressive scan flag to" (set! (-> *setting-control* user-default use-progressive-scan) val) 0 (none) @@ -141,7 +141,3 @@ 0 (none) ) - - - - diff --git a/test/decompiler/reference/jak2/engine/gfx/mood/mood-h_REF.gc b/test/decompiler/reference/jak2/engine/gfx/mood/mood-h_REF.gc index 2944e2431e..dd8cbd9f4d 100644 --- a/test/decompiler/reference/jak2/engine/gfx/mood/mood-h_REF.gc +++ b/test/decompiler/reference/jak2/engine/gfx/mood/mood-h_REF.gc @@ -432,7 +432,7 @@ ;; definition of type mood-context (deftype mood-context (mood-context-core3) "`state` holds an arbitrary state structure, ie `[[sewer-states]]` and is used - when updating the mood. This means that an individual state structure must be less than 128 bytes" +when updating the mood. This means that an individual state structure must be less than 128 bytes" ((itimes vector4w 4 :inline :offset-assert 1776) (state uint32 32 :offset-assert 1840) (data uint128 123 :offset 0) diff --git a/test/decompiler/reference/jak2/engine/gfx/mood/mood-tables2_REF.gc b/test/decompiler/reference/jak2/engine/gfx/mood/mood-tables2_REF.gc index f04fe06254..0376f9a85f 100644 --- a/test/decompiler/reference/jak2/engine/gfx/mood/mood-tables2_REF.gc +++ b/test/decompiler/reference/jak2/engine/gfx/mood/mood-tables2_REF.gc @@ -257,7 +257,7 @@ ;; WARN: Return type mismatch object vs none. (defun desaturate-mood-colors ((arg0 float) (arg1 float) (arg2 float)) "Unused - Generate GOAL code for a new [[*overide-mood-color-table*]] definition that desaturates the color - Apply said overrides to the [[*overide-table*]]" +Apply said overrides to the [[*overide-table*]]" (mem-copy! (the-as pointer (-> *overide-table* mood-color-table)) (the-as pointer *no-cloud-mood-color-table*) @@ -355,7 +355,7 @@ ;; WARN: Return type mismatch object vs none. (defun desaturate-mood-fog ((arg0 (pointer mood-fog-table)) (arg1 float) (arg2 float)) "Unused - Generate GOAL code for a new [[*overide-mood-fog-table*]] definition that desaturates the fog color - Apply said overrides to the [[*overide-table*]]" +Apply said overrides to the [[*overide-table*]]" (mem-copy! (the-as pointer (-> *overide-table* mood-fog-table)) arg0 384) (dotimes (v1-2 8) (let ((a0-5 (-> *overide-table* mood-fog-table data v1-2))) diff --git a/test/decompiler/reference/jak2/engine/gfx/mood/mood_REF.gc b/test/decompiler/reference/jak2/engine/gfx/mood/mood_REF.gc index 2b5e256163..6d5722f344 100644 --- a/test/decompiler/reference/jak2/engine/gfx/mood/mood_REF.gc +++ b/test/decompiler/reference/jak2/engine/gfx/mood/mood_REF.gc @@ -1293,9 +1293,9 @@ ;; WARN: Return type mismatch int vs sound-id. (defmethod play-or-stop-lightning! mood-control ((obj mood-control) (arg0 sound-spec) (arg1 vector)) "Handles playing/stopping of the lightning sound - - Plays the lightning sound if we are not loading and `lightning-id` is zero - - Stops the lightning sound first if `lightning-id` is non-zero - Returns the current value of `lightning-id`" +- Plays the lightning sound if we are not loading and `lightning-id` is zero +- Stops the lightning sound first if `lightning-id` is non-zero +Returns the current value of `lightning-id`" (vector+! (new 'stack-no-clear 'vector) arg1 (math-camera-pos)) (the-as sound-id (cond ((or (load-in-progress? *level*) (movie?)) @@ -1715,8 +1715,8 @@ ;; WARN: Return type mismatch int vs none. (defmethod update-mood-weather! mood-control ((obj mood-control) (cloud-target float) (fog-target float) (cloud-speed float) (fog-speed float)) "Set the `target-interp` and `speed-interp` for the clouds and fog - If `*-speed` is 0.0, use the `*-target` args to set `current-interp` - See [[mood-weather]]" +If `*-speed` is 0.0, use the `*-target` args to set `current-interp` +See [[mood-weather]]" (set! (-> obj target-interp cloud) cloud-target) (set! (-> obj target-interp fog) fog-target) (set! (-> obj speed-interp cloud) cloud-speed) @@ -1735,7 +1735,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod update-mood-range! mood-control ((obj mood-control) (min-cloud float) (max-cloud float) (min-fog float) (max-fog float)) "Set the minimum and maximum ranges of clouds and fog - See [[mood-range]]" +See [[mood-range]]" (set! (-> obj range min-cloud) min-cloud) (set! (-> obj range max-cloud) max-cloud) (set! (-> obj range min-fog) min-fog) @@ -1748,7 +1748,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod set-time-for-random-weather! mood-control ((obj mood-control) (arg0 float) (arg1 float)) "Set the `time-until-random`'s cloud and fog values - See [[mood-weather]]" +See [[mood-weather]]" (set! (-> obj time-until-random cloud) arg0) (set! (-> obj time-until-random fog) arg1) 0 diff --git a/test/decompiler/reference/jak2/engine/gfx/ocean/ocean_REF.gc b/test/decompiler/reference/jak2/engine/gfx/ocean/ocean_REF.gc index 1f9d8d1001..82349f546c 100644 --- a/test/decompiler/reference/jak2/engine/gfx/ocean/ocean_REF.gc +++ b/test/decompiler/reference/jak2/engine/gfx/ocean/ocean_REF.gc @@ -1116,7 +1116,7 @@ ;; definition for method 19 of type ocean (defmethod init-buffer! ocean ((obj ocean) (arg0 dma-buffer)) "Initialize [[ocean]] DMA buffer. - @returns Pointer to the next DMA buffer" +@returns Pointer to the next DMA buffer" (let* ((v1-0 arg0) (a0-1 (the-as object (-> v1-0 base))) ) diff --git a/test/decompiler/reference/jak2/engine/level/bsp_REF.gc b/test/decompiler/reference/jak2/engine/level/bsp_REF.gc index f50930d452..5e31b7bdfc 100644 --- a/test/decompiler/reference/jak2/engine/level/bsp_REF.gc +++ b/test/decompiler/reference/jak2/engine/level/bsp_REF.gc @@ -495,10 +495,10 @@ ;; WARN: Return type mismatch int vs none. (defmethod collect-regions bsp-header ((obj bsp-header) (arg0 sphere) (arg1 int) (arg2 region-prim-list)) "Determines the number of [[drawable]]s in the `obj` that overlap the given `area-of-interest` this number is stored in the `region-list`'s item count - @param area-of-interest The area defined by a sphere that we care about overlaps - @param _count The amount of [[drawable]]s in the object to enumerate through - @param! region-list Stores the overlapping regions and a count for how many were found - @returns none" +@param area-of-interest The area defined by a sphere that we care about overlaps +@param _count The amount of [[drawable]]s in the object to enumerate through +@param! region-list Stores the overlapping regions and a count for how many were found +@returns none" (let ((s3-0 (-> obj region-trees))) (dotimes (s2-0 (-> s3-0 length)) (collect-regions (-> s3-0 s2-0) arg0 arg1 arg2) diff --git a/test/decompiler/reference/jak2/engine/level/region_REF.gc b/test/decompiler/reference/jak2/engine/level/region_REF.gc index 91878b7331..f5d227a4b4 100644 --- a/test/decompiler/reference/jak2/engine/level/region_REF.gc +++ b/test/decompiler/reference/jak2/engine/level/region_REF.gc @@ -47,10 +47,10 @@ ;; WARN: Return type mismatch int vs none. (defmethod collect-regions drawable-region-prim ((obj drawable-region-prim) (area-of-interest sphere) (_count int) (region-list region-prim-list)) "Determines the number of [[drawable]]s in the `obj` that overlap the given `area-of-interest` this number is stored in the `region-list`'s item count - @param area-of-interest The area defined by a sphere that we care about overlaps - @param _count The amount of [[drawable]]s in the object to enumerate through - @param! region-list Stores the overlapping regions and a count for how many were found - @returns none" +@param area-of-interest The area defined by a sphere that we care about overlaps +@param _count The amount of [[drawable]]s in the object to enumerate through +@param! region-list Stores the overlapping regions and a count for how many were found +@returns none" (dotimes (count _count) (when (spheres-overlap? area-of-interest (the-as sphere (-> obj bsphere))) (set! (-> region-list items (-> region-list num-items)) obj) @@ -66,10 +66,10 @@ ;; WARN: Return type mismatch int vs none. (defmethod collect-regions drawable-inline-array-region-prim ((obj drawable-inline-array-region-prim) (arg0 sphere) (arg1 int) (arg2 region-prim-list)) "Determines the number of [[drawable]]s in the `obj` that overlap the given `area-of-interest` this number is stored in the `region-list`'s item count - @param area-of-interest The area defined by a sphere that we care about overlaps - @param _count The amount of [[drawable]]s in the object to enumerate through - @param! region-list Stores the overlapping regions and a count for how many were found - @returns none" +@param area-of-interest The area defined by a sphere that we care about overlaps +@param _count The amount of [[drawable]]s in the object to enumerate through +@param! region-list Stores the overlapping regions and a count for how many were found +@returns none" (collect-regions (the-as drawable-region-prim (-> obj data)) arg0 (-> obj length) arg2) 0 (none) @@ -79,10 +79,10 @@ ;; WARN: Return type mismatch int vs none. (defmethod collect-regions drawable-tree-region-prim ((obj drawable-tree-region-prim) (arg0 sphere) (arg1 int) (arg2 region-prim-list)) "Determines the number of [[drawable]]s in the `obj` that overlap the given `area-of-interest` this number is stored in the `region-list`'s item count - @param area-of-interest The area defined by a sphere that we care about overlaps - @param _count The amount of [[drawable]]s in the object to enumerate through - @param! region-list Stores the overlapping regions and a count for how many were found - @returns none" +@param area-of-interest The area defined by a sphere that we care about overlaps +@param _count The amount of [[drawable]]s in the object to enumerate through +@param! region-list Stores the overlapping regions and a count for how many were found +@returns none" (collect-regions (-> obj data2 0) arg0 (-> obj length) arg2) 0 (none) @@ -162,10 +162,10 @@ ;; WARN: Function (method 9 region-prim-area) has a return type of none, but the expression builder found a return statement. (defmethod track-entered-region! region-prim-area ((obj region-prim-area) (region-sphere drawable-region-sphere)) "Enumerates through the objects `region-enter-list`, if we find the provided `region`, do nothing and exit - otherwise, add the [[drawable-region-sphere]] to `region-enter-prim-list` and increment `region-enter-count` +otherwise, add the [[drawable-region-sphere]] to `region-enter-prim-list` and increment `region-enter-count` - @param region-sphere Defines the region in question - @returns nothing" +@param region-sphere Defines the region in question +@returns nothing" (let ((regions-entered (-> obj region-enter-count))) (let ((region (-> region-sphere region))) (countdown (idx regions-entered) @@ -187,10 +187,10 @@ ;; WARN: Function (method 10 region-prim-area) has a return type of none, but the expression builder found a return statement. (defmethod track-exited-region! region-prim-area ((obj region-prim-area) (arg0 drawable-region-sphere)) "Enumerates through the objects `region-exit-list`, if we find the provided `region`, do nothing and exit - otherwise, add the [[drawable-region-sphere]] to `region-exit-prim-list` and increment `region-exit-count` +otherwise, add the [[drawable-region-sphere]] to `region-exit-prim-list` and increment `region-exit-count` - @param region-sphere Defines the region in question - @returns nothing" +@param region-sphere Defines the region in question +@returns nothing" (let ((regions-exited (-> obj region-exit-count))) (let ((region (-> arg0 region))) (countdown (idx regions-exited) @@ -212,10 +212,10 @@ ;; WARN: Function (method 11 region-prim-area) has a return type of none, but the expression builder found a return statement. (defmethod track-inside-region! region-prim-area ((obj region-prim-area) (arg0 drawable-region-sphere)) "Enumerates through the objects `region-inside-list`, if we find the provided `region`, do nothing and exit - otherwise, add the [[drawable-region-sphere]] to `region-inside-prim-list` and increment `region-inside-count` +otherwise, add the [[drawable-region-sphere]] to `region-inside-prim-list` and increment `region-inside-count` - @param region-sphere Defines the region in question - @returns nothing" +@param region-sphere Defines the region in question +@returns nothing" (let ((regions-inside (-> obj region-inside-count))) (let ((region (-> arg0 region))) (countdown (idx regions-inside) @@ -237,10 +237,10 @@ ;; WARN: Function (method 12 region-prim-area) has a return type of none, but the expression builder found a return statement. (defmethod track-start-region! region-prim-area ((obj region-prim-area) (arg0 drawable-region-sphere)) "Enumerates through the objects `region-start-list`, if we find the provided `region`, do nothing and exit - otherwise, add the [[drawable-region-sphere]] to `region-start-prim-list` and increment `region-start-count` +otherwise, add the [[drawable-region-sphere]] to `region-start-prim-list` and increment `region-start-count` - @param region-sphere Defines the region in question - @returns nothing" +@param region-sphere Defines the region in question +@returns nothing" (let ((regions-started (-> obj region-start-count))) (let ((region (-> arg0 region))) (countdown (idx regions-started) diff --git a/test/decompiler/reference/jak2/engine/nav/nav-control_REF.gc b/test/decompiler/reference/jak2/engine/nav/nav-control_REF.gc index 7d35ac53e0..3fc7dcc162 100644 --- a/test/decompiler/reference/jak2/engine/nav/nav-control_REF.gc +++ b/test/decompiler/reference/jak2/engine/nav/nav-control_REF.gc @@ -221,10 +221,10 @@ ;; WARN: Function get-nav-control has a return type of none, but the expression builder found a return statement. (defun get-nav-control ((arg0 process-drawable) (arg1 nav-mesh)) "Given a [[process-drawable]] get the associated [[nav-control]] using either: - - the provided `nav-mesh` arg - - the `nav-mesh` associated with the [[process-drawable]]'s [[entity]] - If no [[nav-mesh]] is set or found, set the [[entity]]'s [[entity-perm-status]] to TODO and return an error. - Note that this doesn't actually return the nav-control, but instead adds this process-drawable to the nav-mesh." +- the provided `nav-mesh` arg +- the `nav-mesh` associated with the [[process-drawable]]'s [[entity]] +If no [[nav-mesh]] is set or found, set the [[entity]]'s [[entity-perm-status]] to TODO and return an error. +Note that this doesn't actually return the nav-control, but instead adds this process-drawable to the nav-mesh." (if (not arg1) (set! arg1 (nav-mesh-from-res-tag (-> arg0 entity) 'nav-mesh-actor 0)) ) @@ -396,7 +396,7 @@ ;; WARN: Return type mismatch int vs none. (defun add-nav-sphere ((nav nav-control) (sphere sphere) (max-spheres int)) "Adds the given [[sphere]] to the [[nav-control]]'s `sphere-array` so long as - `max-spheres` is less than [[nav-control]]'s `sphere-count`" +`max-spheres` is less than [[nav-control]]'s `sphere-count`" (local-vars (a2-4 float)) (rlet ((vf1 :class vf) (vf2 :class vf) diff --git a/test/decompiler/reference/jak2/engine/nav/nav-enemy_REF.gc b/test/decompiler/reference/jak2/engine/nav/nav-enemy_REF.gc index 817216838a..15ffa972a7 100644 --- a/test/decompiler/reference/jak2/engine/nav/nav-enemy_REF.gc +++ b/test/decompiler/reference/jak2/engine/nav/nav-enemy_REF.gc @@ -1329,6 +1329,12 @@ ;; definition for method 11 of type nav-enemy ;; WARN: Return type mismatch int vs none. (defmethod init-from-entity! nav-enemy ((obj nav-enemy) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (enemy-method-114 obj) (process-drawable-from-entity! obj arg0) (enemy-method-115 obj) @@ -2847,7 +2853,7 @@ ;; WARN: Return type mismatch quaternion vs none. (defmethod enemy-method-92 nav-enemy ((obj nav-enemy) (arg0 int) (arg1 nav-poly)) "TODO - nav-poly is a guess - @abstract" +@abstract" (let ((v1-0 arg0)) (when (or (zero? v1-0) (= v1-0 1) (= v1-0 2) (= v1-0 3)) (let ((a1-4 obj)) diff --git a/test/decompiler/reference/jak2/engine/nav/nav-mesh-h_REF.gc b/test/decompiler/reference/jak2/engine/nav/nav-mesh-h_REF.gc index 48f3655306..661ddc60bf 100644 --- a/test/decompiler/reference/jak2/engine/nav/nav-mesh-h_REF.gc +++ b/test/decompiler/reference/jak2/engine/nav/nav-mesh-h_REF.gc @@ -190,7 +190,7 @@ ;; definition of type nav-vertex (deftype nav-vertex (vector) "A typedef for `vector`, not used because our code looks nicer if everything is `vector`s anyway - and declared out of order (cannot use forward declared structures in inline arrays)" +and declared out of order (cannot use forward declared structures in inline arrays)" () :method-count-assert 9 :size-assert #x10 diff --git a/test/decompiler/reference/jak2/engine/physics/rigid-body_REF.gc b/test/decompiler/reference/jak2/engine/physics/rigid-body_REF.gc index b207a15058..acc0db301f 100644 --- a/test/decompiler/reference/jak2/engine/physics/rigid-body_REF.gc +++ b/test/decompiler/reference/jak2/engine/physics/rigid-body_REF.gc @@ -1778,6 +1778,12 @@ ;; definition for method 11 of type rigid-body-object ;; WARN: Return type mismatch int vs none. (defmethod init-from-entity! rigid-body-object ((obj rigid-body-object) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (rigid-body-object-method-32 obj) (process-drawable-from-entity! obj arg0) (rigid-body-object-method-33 obj) diff --git a/test/decompiler/reference/jak2/engine/process-drawable/process-taskable_REF.gc b/test/decompiler/reference/jak2/engine/process-drawable/process-taskable_REF.gc index 590b89adfa..7805429302 100644 --- a/test/decompiler/reference/jak2/engine/process-drawable/process-taskable_REF.gc +++ b/test/decompiler/reference/jak2/engine/process-drawable/process-taskable_REF.gc @@ -14,8 +14,8 @@ ;; WARN: Return type mismatch int vs none. (defbehavior process-taskable-anim-loop process-taskable ((arg0 (function process-taskable object))) "Takes in a function and loops as long as it's return value is truthy - Seen take in - `true-func` which takes no args TODO - seems fishy - - a `(process-taskable process) lambda" +Seen take in - `true-func` which takes no args TODO - seems fishy +- a `(process-taskable process) lambda" (while (arg0 self) (let ((s5-0 (get-art-elem self))) (when (!= (ja-group) s5-0) @@ -42,7 +42,7 @@ ;; WARN: Return type mismatch art-joint-anim vs art-element. (defmethod get-art-elem process-taskable ((obj process-taskable)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (the-as art-element (if (> (-> obj skel active-channels) 0) (-> obj skel root-channel 0 frame-group) ) @@ -108,7 +108,7 @@ (none) ) :trans (behavior () - (let ((v1-1 (game-task-control-method-9 (-> self task)))) + (let ((v1-1 (get-current-task-event (-> self task)))) (if (and (nonzero? (-> v1-1 action)) (or (not (logtest? (-> self draw status) (draw-control-status on-screen))) (logtest? (-> v1-1 flags) (game-task-flags gatflag-01)) (< (- (-> self clock frame-counter) (-> self birth-time)) (seconds 0.1)) @@ -134,7 +134,7 @@ (none) ) :trans (behavior () - (let ((gp-0 (game-task-control-method-9 (-> self task)))) + (let ((gp-0 (get-current-task-event (-> self task)))) (cond ((= (-> gp-0 action) (game-task-action hide)) (if (or (not (logtest? (-> self draw status) (draw-control-status on-screen))) @@ -428,6 +428,12 @@ ;; definition for method 11 of type process-taskable ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! process-taskable ((obj process-taskable) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (process-taskable-method-31 obj) (process-drawable-from-entity! obj arg0) diff --git a/test/decompiler/reference/jak2/engine/sound/gsound_REF.gc b/test/decompiler/reference/jak2/engine/sound/gsound_REF.gc index a306a996bf..6cdde518c2 100644 --- a/test/decompiler/reference/jak2/engine/sound/gsound_REF.gc +++ b/test/decompiler/reference/jak2/engine/sound/gsound_REF.gc @@ -689,7 +689,7 @@ ;; INFO: Used lq/sq (defbehavior sound-play-by-name process-drawable ((arg0 sound-name) (arg1 sound-id) (arg2 int) (arg3 int) (arg4 int) (arg5 sound-group) (arg6 object)) "Last arg can by a symbol with value [[#t]], in which case it will pull `trans` [[vector]] off the current [[process-drawable]] - otherwise, an explicit [[vector]] can be provided" +otherwise, an explicit [[vector]] can be provided" (local-vars (sv-16 sound-group)) (set! sv-16 arg5) (let ((s4-0 arg6)) diff --git a/test/decompiler/reference/jak2/engine/target/gun/gun-blue-shot_REF.gc b/test/decompiler/reference/jak2/engine/target/gun/gun-blue-shot_REF.gc index 9429d18a58..d64824f3ff 100644 --- a/test/decompiler/reference/jak2/engine/target/gun/gun-blue-shot_REF.gc +++ b/test/decompiler/reference/jak2/engine/target/gun/gun-blue-shot_REF.gc @@ -67,7 +67,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod draw-laser-sight gun-blue-shot ((obj gun-blue-shot)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" (let* ((s5-0 (ppointer->process (-> obj parent))) (s4-0 (-> *part-id-table* 196)) (s3-0 (get-field-spec-by-id s4-0 (sp-field-id spt-omega))) @@ -342,7 +342,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! gun-blue-shot ((obj gun-blue-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (with-pp (cpad-set-buzz! (-> *cpad-list* cpads 0) 1 204 (seconds 0.1)) (set! (-> obj init-pos quad) (-> obj root-override trans quad)) diff --git a/test/decompiler/reference/jak2/engine/target/gun/gun-dark-shot_REF.gc b/test/decompiler/reference/jak2/engine/target/gun/gun-dark-shot_REF.gc index 7929327c13..9cf628a510 100644 --- a/test/decompiler/reference/jak2/engine/target/gun/gun-dark-shot_REF.gc +++ b/test/decompiler/reference/jak2/engine/target/gun/gun-dark-shot_REF.gc @@ -167,7 +167,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! gun-dark-shot ((obj gun-dark-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj attack-mode) 'eco-dark) (vector-normalize! (-> obj root-override transv) (+ 225280.0 (* 225280.0 (-> obj charge-level)))) (set! (-> obj part) (create-launch-control (-> *part-group-id-table* 72) obj)) diff --git a/test/decompiler/reference/jak2/engine/target/gun/gun-util_REF.gc b/test/decompiler/reference/jak2/engine/target/gun/gun-util_REF.gc index 151b12145c..d714fe28a8 100644 --- a/test/decompiler/reference/jak2/engine/target/gun/gun-util_REF.gc +++ b/test/decompiler/reference/jak2/engine/target/gun/gun-util_REF.gc @@ -27,7 +27,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! gun-eject ((obj gun-eject)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-gun" (the-as (pointer uint32) #f))) @@ -74,7 +74,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! gun-mag-yellow ((obj gun-mag-yellow)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-ammo-yellow" (the-as (pointer uint32) #f))) @@ -115,7 +115,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! gun-mag-red ((obj gun-mag-red)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-ammo-red" (the-as (pointer uint32) #f))) @@ -156,7 +156,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! gun-mag-blue ((obj gun-mag-blue)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-ammo-blue" (the-as (pointer uint32) #f))) @@ -197,7 +197,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! gun-mag-dark ((obj gun-mag-dark)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-ammo-dark" (the-as (pointer uint32) #f))) diff --git a/test/decompiler/reference/jak2/engine/target/gun/gun-yellow-shot_REF.gc b/test/decompiler/reference/jak2/engine/target/gun/gun-yellow-shot_REF.gc index 34d46fb7d8..ec90326a14 100644 --- a/test/decompiler/reference/jak2/engine/target/gun/gun-yellow-shot_REF.gc +++ b/test/decompiler/reference/jak2/engine/target/gun/gun-yellow-shot_REF.gc @@ -81,7 +81,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod draw-laser-sight gun-yellow-shot ((obj gun-yellow-shot)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" (draw-beam (-> *part-id-table* 227) (-> obj tail-pos) (-> obj starting-dir) #f #t) 0 (none) @@ -408,7 +408,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! gun-yellow-shot ((obj gun-yellow-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj hit-actor?) #f) (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (cpad-set-buzz! (-> *cpad-list* cpads 0) 1 204 (seconds 0.1)) diff --git a/test/decompiler/reference/jak2/engine/target/mech_suit/carry-h_REF.gc b/test/decompiler/reference/jak2/engine/target/mech_suit/carry-h_REF.gc index 9d63086cb4..030b2d204b 100644 --- a/test/decompiler/reference/jak2/engine/target/mech_suit/carry-h_REF.gc +++ b/test/decompiler/reference/jak2/engine/target/mech_suit/carry-h_REF.gc @@ -143,7 +143,7 @@ ;; definition for method 10 of type carry-info (defmethod distance-from-destination carry-info ((obj carry-info) (arg0 carry-info)) "Returns the distance from the current `point` and the provided [[carry-info]]'s `point`. - Returns `-1.0` if it exceeds the maximum allowed" +Returns `-1.0` if it exceeds the maximum allowed" (let* ((f28-0 (vector-y-angle (vector-! (new 'stack-no-clear 'vector) (-> arg0 point) (-> obj point)))) (f30-0 (fabs (deg-diff f28-0 (vector-y-angle (-> obj normal))))) (f28-1 (fabs (deg-diff (+ 32768.0 f28-0) (vector-y-angle (-> arg0 normal))))) diff --git a/test/decompiler/reference/jak2/engine/target/mech_suit/mech-part_REF.gc b/test/decompiler/reference/jak2/engine/target/mech_suit/mech-part_REF.gc index fc1afde1a4..0adbd7d58a 100644 --- a/test/decompiler/reference/jak2/engine/target/mech_suit/mech-part_REF.gc +++ b/test/decompiler/reference/jak2/engine/target/mech_suit/mech-part_REF.gc @@ -139,6 +139,7 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. (defun mech-spawn-thruster ((arg0 mech-info) (arg1 vector) (arg2 vector) (arg3 float) (arg4 float)) + "Draws the mech's thrusters" (rlet ((acc :class vf) (vf0 :class vf) (vf4 :class vf) @@ -471,7 +472,3 @@ (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 3600.0) 1.0) ) ) - - - - diff --git a/test/decompiler/reference/jak2/engine/target/mech_suit/mech_REF.gc b/test/decompiler/reference/jak2/engine/target/mech_suit/mech_REF.gc index f884d90457..e60e2afa39 100644 --- a/test/decompiler/reference/jak2/engine/target/mech_suit/mech_REF.gc +++ b/test/decompiler/reference/jak2/engine/target/mech_suit/mech_REF.gc @@ -420,6 +420,12 @@ ;; definition for method 11 of type mech (defmethod init-from-entity! mech ((obj mech) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (mech-init arg0 (the-as matrix3 #f) (the-as handle #f) 100.0) (none) ) diff --git a/test/decompiler/reference/jak2/engine/target/target-tube_REF.gc b/test/decompiler/reference/jak2/engine/target/target-tube_REF.gc index 639e618e45..d25b155c3b 100644 --- a/test/decompiler/reference/jak2/engine/target/target-tube_REF.gc +++ b/test/decompiler/reference/jak2/engine/target/target-tube_REF.gc @@ -1192,6 +1192,12 @@ ;; definition for method 11 of type slide-control ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! slide-control ((obj slide-control) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) diff --git a/test/decompiler/reference/jak2/engine/target/target-turret-shot_REF.gc b/test/decompiler/reference/jak2/engine/target/target-turret-shot_REF.gc index 2f3d556b11..d4a4d590ec 100644 --- a/test/decompiler/reference/jak2/engine/target/target-turret-shot_REF.gc +++ b/test/decompiler/reference/jak2/engine/target/target-turret-shot_REF.gc @@ -416,7 +416,7 @@ ;; WARN: Return type mismatch projectile-options vs none. (defmethod init-proj-settings! turret-shot ((obj turret-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (cpad-set-buzz! (-> *cpad-list* cpads 0) 1 204 (seconds 0.1)) (set! (-> obj attack-mode) 'turret) diff --git a/test/decompiler/reference/jak2/engine/ui/text_REF.gc b/test/decompiler/reference/jak2/engine/ui/text_REF.gc index 5d09738c2a..258834c5ae 100644 --- a/test/decompiler/reference/jak2/engine/ui/text_REF.gc +++ b/test/decompiler/reference/jak2/engine/ui/text_REF.gc @@ -252,7 +252,7 @@ ;; WARN: Found some very strange gotos. Check result carefully, this is not well tested. (defun load-game-text-info ((arg0 string) (arg1 (pointer object)) (arg2 kheap)) "Load text, if needed. txt-name is the group name, curr-text is the _symbol_ for - the game-text-info, and heap is the heap to load to. The heap will be cleared." +the game-text-info, and heap is the heap to load to. The heap will be cleared." (local-vars (v0-3 int) (sv-16 game-text-info) (sv-24 int) (sv-32 int) (sv-40 int)) (set! sv-16 (the-as game-text-info (-> arg1 0))) (set! sv-24 (the-as int (-> *setting-control* user-current language))) @@ -330,8 +330,8 @@ ;; WARN: Return type mismatch int vs none. (defun load-level-text-files ((arg0 int)) "Load the text files needed for level idx. - This function made more sense back when text files were split up, but in the end they put everything - in a single text group and file." +This function made more sense back when text files were split up, but in the end they put everything +in a single text group and file." (if (or *level-text-file-load-flag* (>= arg0 0)) (load-game-text-info "common" (&-> '*common-text* value) *common-text-heap*) ) diff --git a/test/decompiler/reference/jak2/engine/util/sync-info-h_REF.gc b/test/decompiler/reference/jak2/engine/util/sync-info-h_REF.gc index 95139cd9e8..7bee344ec7 100644 --- a/test/decompiler/reference/jak2/engine/util/sync-info-h_REF.gc +++ b/test/decompiler/reference/jak2/engine/util/sync-info-h_REF.gc @@ -3,7 +3,7 @@ ;; definition of type sync-info-params (deftype sync-info-params (structure) - ((sync-type basic :offset-assert 0) + ((sync-type symbol :offset-assert 0) (sync-flags sync-flags :offset-assert 8) (entity basic :offset-assert 16) (period uint32 :offset-assert 20) diff --git a/test/decompiler/reference/jak2/levels/atoll/ash1-course_REF.gc b/test/decompiler/reference/jak2/levels/atoll/ash1-course_REF.gc index 353467139f..54afee9ad1 100644 --- a/test/decompiler/reference/jak2/levels/atoll/ash1-course_REF.gc +++ b/test/decompiler/reference/jak2/levels/atoll/ash1-course_REF.gc @@ -59,7 +59,7 @@ :on-set (lambda ((arg0 ashelin-battle)) (clear-speech-flags! arg0) (move-to-point! (-> arg0 root-override2) (the-as vector (-> arg0 ash-course spots 0))) - (let ((v1-7 (game-task-control-method-9 (-> arg0 task)))) + (let ((v1-7 (get-current-task-event (-> arg0 task)))) (if (= (-> v1-7 action) (game-task-action say)) (add-process *gui-control* @@ -103,7 +103,7 @@ ) (set! (-> arg1 waypoint-time0) (-> pp clock frame-counter)) ) - (let ((s5-0 (game-task-control-method-9 (-> arg1 task)))) + (let ((s5-0 (get-current-task-event (-> arg1 task)))) (cond ((and (nonzero? (-> arg1 waypoint-time0)) (and (>= (- (-> pp clock frame-counter) (-> arg1 waypoint-time0)) (seconds 1)) @@ -296,7 +296,7 @@ ) ) ) - (let ((v1-20 (game-task-control-method-9 (-> arg0 task)))) + (let ((v1-20 (get-current-task-event (-> arg0 task)))) (if (= (-> v1-20 action) (game-task-action say)) (add-process *gui-control* @@ -318,7 +318,7 @@ (lambda ((arg0 asht-wait-spot) (arg1 ashelin-battle)) (with-pp (when (>= (- (-> pp clock frame-counter) (-> arg1 waypoint-time0)) (seconds 1.5)) - (let ((s5-0 (game-task-control-method-9 (-> arg1 task)))) + (let ((s5-0 (get-current-task-event (-> arg1 task)))) (when (and (= (-> s5-0 action) (game-task-action say)) (not (channel-active? arg1 (the-as uint 0))) (scene-play arg1 (the-as string (-> s5-0 scene)) #f) @@ -477,7 +477,3 @@ ;; failed to figure out what this is: (set! (-> *bot-course-table* course 1) *ash1-course*) - - - - diff --git a/test/decompiler/reference/jak2/levels/atoll/sig0-course_REF.gc b/test/decompiler/reference/jak2/levels/atoll/sig0-course_REF.gc index 6a88eae856..8584018759 100644 --- a/test/decompiler/reference/jak2/levels/atoll/sig0-course_REF.gc +++ b/test/decompiler/reference/jak2/levels/atoll/sig0-course_REF.gc @@ -257,7 +257,7 @@ ) (clear-speech-flags! arg0) (logior! (-> arg0 focus-status) (focus-status disable)) - (let ((v1-9 (game-task-control-method-9 (-> arg0 task)))) + (let ((v1-9 (get-current-task-event (-> arg0 task)))) (if (= (-> v1-9 action) (game-task-action say)) (add-process *gui-control* @@ -287,7 +287,7 @@ (when (and (>= f2-2 -40960.0) (or (>= 40960.0 f1-0) (< f2-2 24576.0) (and (< f2-2 192512.0) (or (< f0-1 -81920.0) (< 53248.0 f0-1)))) ) - (let ((v1-19 (game-task-control-method-9 (-> arg1 task)))) + (let ((v1-19 (get-current-task-event (-> arg1 task)))) (cond ((= (-> v1-19 action) (game-task-action say)) (when (scene-play arg1 (the-as string (-> v1-19 scene)) #f) @@ -3227,7 +3227,3 @@ ;; failed to figure out what this is: (set! (-> *bot-course-table* course 0) *sig0-course*) - - - - diff --git a/test/decompiler/reference/jak2/levels/castle/pad/caspad-obs_REF.gc b/test/decompiler/reference/jak2/levels/castle/pad/caspad-obs_REF.gc index 045dbbcb75..4633004538 100644 --- a/test/decompiler/reference/jak2/levels/castle/pad/caspad-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/castle/pad/caspad-obs_REF.gc @@ -10,7 +10,7 @@ :size-assert #x174 :flag-assert #x3201000174 (:methods - (cpad-elevator-method-49 (_type_ symbol) none 49) + (configure-collision (_type_ symbol) none 49) ) ) @@ -41,13 +41,18 @@ ) ;; definition for method 43 of type cpad-elevator -(defmethod elevator-method-43 cpad-elevator ((obj cpad-elevator) (arg0 vector) (arg1 float) (arg2 float)) - (let ((s4-0 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg1 'interp)) - (a0-3 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg2 'interp)) - (v1-3 (-> obj root-override trans)) +(defmethod move-between-points cpad-elevator ((obj cpad-elevator) (vec vector) (point-a float) (point-b float)) + "Move between two points on the elevator's path +@param vec TODO not sure +@param point-a The first point fetched from the elevator's path +@param point-b The second point fetched from the path +@see [[path-control]] and [[elevator]]" + (let ((path-point-a (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) point-a 'interp)) + (path-point-b (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) point-b 'interp)) + (elevator-trans (-> obj root-override trans)) ) - (when (and (< (-> a0-3 y) (-> s4-0 y)) (< (-> arg0 y) (+ -8192.0 (-> v1-3 y)))) - (let ((s4-2 (vector-! (new 'stack-no-clear 'vector) arg0 v1-3))) + (when (and (< (-> path-point-b y) (-> path-point-a y)) (< (-> vec y) (+ -8192.0 (-> elevator-trans y)))) + (let ((s4-2 (vector-! (new 'stack-no-clear 'vector) vec elevator-trans))) (vector-inv-orient-by-quat! s4-2 s4-2 (-> obj root-override quat)) (and (< (fabs (-> s4-2 x)) 49152.0) (< (fabs (-> s4-2 z)) 49152.0)) ) @@ -56,20 +61,20 @@ ) ;; definition for method 45 of type cpad-elevator -(defmethod elevator-method-45 cpad-elevator ((obj cpad-elevator)) - "@returns Stub, or always returns [[#t]]" - (let* ((gp-0 *target*) - (a0-2 (if (type? gp-0 process-focusable) - gp-0 - ) - ) +(defmethod commited-to-ride? cpad-elevator ((obj cpad-elevator)) + "@returns if the target is considered within the elevator area enough to begin descending/ascending" + (let* ((target *target*) + (target-proc (if (type? target process-focusable) + target + ) + ) ) - (when a0-2 - (let* ((v1-1 (get-trans a0-2 0)) - (gp-2 (vector-! (new 'stack-no-clear 'vector) v1-1 (-> obj root-override trans))) + (when target-proc + (let* ((target-pos (get-trans target-proc 0)) + (dist-from-center (vector-! (new 'stack-no-clear 'vector) target-pos (-> obj root-override trans))) ) - (vector-inv-orient-by-quat! gp-2 gp-2 (-> obj root-override quat)) - (and (< (fabs (-> gp-2 x)) 40960.0) (< (fabs (-> gp-2 z)) 40960.0)) + (vector-inv-orient-by-quat! dist-from-center dist-from-center (-> obj root-override quat)) + (and (< (fabs (-> dist-from-center x)) 40960.0) (< (fabs (-> dist-from-center z)) 40960.0)) ) ) ) @@ -77,16 +82,18 @@ ;; definition for method 49 of type cpad-elevator ;; WARN: Return type mismatch int vs none. -(defmethod cpad-elevator-method-49 cpad-elevator ((obj cpad-elevator) (arg0 symbol)) - (let ((v1-3 (-> (the-as collide-shape-prim-group (-> obj root-override root-prim)) child 1))) +(defmethod configure-collision cpad-elevator ((obj cpad-elevator) (collide-with-jak? symbol)) + "Appropriately sets the collision on the elevator +@param collide-with-jak? If set, the elevator will collide with Jak" + (let ((prim (-> (the-as collide-shape-prim-group (-> obj root-override root-prim)) child 1))) (cond - (arg0 - (set! (-> v1-3 prim-core collide-as) (collide-spec obstacle pusher)) - (set! (-> v1-3 prim-core collide-with) (collide-spec jak player-list)) + (collide-with-jak? + (set! (-> prim prim-core collide-as) (collide-spec obstacle pusher)) + (set! (-> prim prim-core collide-with) (collide-spec jak player-list)) ) (else - (set! (-> v1-3 prim-core collide-as) (collide-spec)) - (set! (-> v1-3 prim-core collide-with) (collide-spec)) + (set! (-> prim prim-core collide-as) (collide-spec)) + (set! (-> prim prim-core collide-with) (collide-spec)) 0 ) ) @@ -98,13 +105,13 @@ (defstate running (cpad-elevator) :virtual #t :enter (behavior () - (let ((t9-0 (-> (method-of-type elevator running) enter))) - (if t9-0 - (t9-0) + (let ((func (-> (method-of-type elevator running) enter))) + (if func + (func) ) ) - (when (logtest? (-> self elevator-status) (elevator-status elevator-status-0)) - (cpad-elevator-method-49 self #t) + (when (logtest? (-> self elevator-status) (elevator-status waiting-to-descend)) + (configure-collision self #t) (set-setting! 'jump #f 0 0) ) (none) @@ -112,25 +119,25 @@ :exit (behavior () (sound-stop (-> self sound-id)) (sound-play "dig-elevate-end") - (let ((t9-3 (-> (method-of-type elevator running) exit))) - (if t9-3 - (t9-3) + (let ((func (-> (method-of-type elevator running) exit))) + (if func + (func) ) ) (none) ) :code (behavior () - (let ((gp-0 (-> self clock frame-counter))) - (until (>= (- (-> self clock frame-counter) gp-0) (seconds 1)) + (let ((frame-counter (-> self clock frame-counter))) + (until (>= (- (-> self clock frame-counter) frame-counter) (seconds 1)) (suspend) ) ) - (logior! (-> self elevator-status) (elevator-status elevator-status-1)) + (logior! (-> self elevator-status) (elevator-status waiting-to-ascend)) (until #f (sound-play "dig-elevate" :id (-> self sound-id)) (suspend) (if (= (-> self path-pos) 1.0) - (logclear! (-> self elevator-status) (elevator-status elevator-status-1)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-ascend)) ) ) #f @@ -142,13 +149,13 @@ (defstate arrived (cpad-elevator) :virtual #t :enter (behavior () - (let ((t9-0 (-> (method-of-type elevator arrived) enter))) - (if t9-0 - (t9-0) + (let ((func (-> (method-of-type elevator arrived) enter))) + (if func + (func) ) ) - (when (logtest? (-> self elevator-status) (elevator-status elevator-status-0)) - (cpad-elevator-method-49 self #f) + (when (logtest? (-> self elevator-status) (elevator-status waiting-to-descend)) + (configure-collision self #f) (remove-setting! 'jump) ) (none) @@ -156,12 +163,14 @@ ) ;; definition for method 40 of type cpad-elevator -(defmethod elevator-method-40 cpad-elevator ((obj cpad-elevator)) - "TODO - need to figure out some flags to be confident about this" +;; WARN: Return type mismatch object vs none. +(defmethod activate-elevator cpad-elevator ((obj cpad-elevator)) + "Puts the elevator initially into the correct state. This is typically based upon game completion" (if (task-node-closed? (game-task-node dig-knock-down-introduction)) (go (method-of-object obj arrived)) (go (method-of-object obj dormant)) ) + (none) ) ;; definition for method 10 of type cpad-elevator @@ -173,8 +182,8 @@ ;; definition for method 42 of type cpad-elevator ;; WARN: Return type mismatch ambient-sound vs none. -(defmethod clear-ambient-sound! cpad-elevator ((obj cpad-elevator)) - "Might be a virtual function, but clears the object's [[ambient-sound]]" +(defmethod set-ambient-sound! cpad-elevator ((obj cpad-elevator)) + "Sets the elevator's [[ambient-sound]] up" (set! (-> obj sound) (new 'process 'ambient-sound (static-sound-spec "cpad-elevator-l" :fo-max 70) (-> obj root-override trans)) ) @@ -183,10 +192,12 @@ ;; definition for method 33 of type cpad-elevator ;; WARN: Return type mismatch sound-id vs none. -(defmethod base-plat-method-33 cpad-elevator ((obj cpad-elevator)) - (let ((s5-0 (+ (-> obj path curve num-cverts) -1))) - (calc-dist-between-points! obj 0 s5-0) - (calc-dist-between-points! obj s5-0 0) +(defmethod init-plat! cpad-elevator ((obj cpad-elevator)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." + (let ((last-path-index (+ (-> obj path curve num-cverts) -1))) + (calc-dist-between-points! obj 0 last-path-index) + (calc-dist-between-points! obj last-path-index 0) ) (set! (-> obj sound-id) (new-sound-id)) (none) @@ -194,42 +205,42 @@ ;; definition for method 31 of type cpad-elevator ;; WARN: Return type mismatch collide-shape-moving vs none. -(defmethod base-plat-method-31 cpad-elevator ((obj cpad-elevator)) - "TODO - collision stuff" - (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) - (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) - (set! (-> s5-0 reaction) cshape-reaction-default) - (set! (-> s5-0 no-reaction) +(defmethod init-plat-collision! cpad-elevator ((obj cpad-elevator)) + "TODO - collision stuff for setting up the platform" + (let ((cshape-moving (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) + (set! (-> cshape-moving dynam) (copy *standard-dynamics* 'process)) + (set! (-> cshape-moving reaction) cshape-reaction-default) + (set! (-> cshape-moving no-reaction) (the-as (function collide-shape-moving collide-query vector vector object) nothing) ) - (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) - (set! (-> s5-0 total-prims) (the-as uint 3)) - (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle camera-blocker pusher)) - (set! (-> s4-0 prim-core collide-with) (collide-spec jak bot player-list)) - (set! (-> s4-0 prim-core action) (collide-action solid rideable)) - (set! (-> s4-0 transform-index) 3) - (set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 73728.0) - (set! (-> s5-0 root-prim) s4-0) + (let ((prim-group (new 'process 'collide-shape-prim-group cshape-moving (the-as uint 2) 0))) + (set! (-> cshape-moving total-prims) (the-as uint 3)) + (set! (-> prim-group prim-core collide-as) (collide-spec obstacle camera-blocker pusher)) + (set! (-> prim-group prim-core collide-with) (collide-spec jak bot player-list)) + (set! (-> prim-group prim-core action) (collide-action solid rideable)) + (set! (-> prim-group transform-index) 3) + (set-vector! (-> prim-group local-sphere) 0.0 0.0 0.0 73728.0) + (set! (-> cshape-moving root-prim) prim-group) ) - (pusher-init s5-0) - (let ((v1-15 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-15 prim-core collide-as) (collide-spec obstacle camera-blocker pusher)) - (set! (-> v1-15 prim-core collide-with) (collide-spec jak bot player-list)) - (set! (-> v1-15 prim-core action) (collide-action solid rideable)) - (set! (-> v1-15 transform-index) 3) - (set-vector! (-> v1-15 local-sphere) 0.0 0.0 0.0 73728.0) + (pusher-init cshape-moving) + (let ((prim-mesh-for-jak (new 'process 'collide-shape-prim-mesh cshape-moving (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh-for-jak prim-core collide-as) (collide-spec obstacle camera-blocker pusher)) + (set! (-> prim-mesh-for-jak prim-core collide-with) (collide-spec jak bot player-list)) + (set! (-> prim-mesh-for-jak prim-core action) (collide-action solid rideable)) + (set! (-> prim-mesh-for-jak transform-index) 3) + (set-vector! (-> prim-mesh-for-jak local-sphere) 0.0 0.0 0.0 73728.0) ) - (let ((v1-17 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 1) (the-as uint 0)))) - (set! (-> v1-17 prim-core action) (collide-action solid)) - (set! (-> v1-17 transform-index) 3) - (set-vector! (-> v1-17 local-sphere) 0.0 0.0 0.0 73728.0) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape-moving (the-as uint 1) (the-as uint 0)))) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 0.0 0.0 73728.0) ) - (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w))) - (let ((v1-20 (-> s5-0 root-prim))) - (set! (-> s5-0 backup-collide-as) (-> v1-20 prim-core collide-as)) - (set! (-> s5-0 backup-collide-with) (-> v1-20 prim-core collide-with)) + (set! (-> cshape-moving nav-radius) (* 0.75 (-> cshape-moving root-prim local-sphere w))) + (let ((root-prim (-> cshape-moving root-prim))) + (set! (-> cshape-moving backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape-moving backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> obj root-override) s5-0) + (set! (-> obj root-override) cshape-moving) ) (none) ) diff --git a/test/decompiler/reference/jak2/levels/city/common/height-map-h_REF.gc b/test/decompiler/reference/jak2/levels/city/common/height-map-h_REF.gc index ac974f9e7f..6c54c292d8 100644 --- a/test/decompiler/reference/jak2/levels/city/common/height-map-h_REF.gc +++ b/test/decompiler/reference/jak2/levels/city/common/height-map-h_REF.gc @@ -3,6 +3,9 @@ ;; definition of type xz-height-map (deftype xz-height-map (structure) + "TODO - not terribly well understood yet, but this is used for the traffic height map +this is primarily used to store a massive amount of bytes in the `data` field +all initialized from static data." ((offset float 3 :offset-assert 0) (x-offset float :offset 0) (y-offset float :offset 4) @@ -53,10 +56,6 @@ ;; definition for function get-traffic-height (defun get-traffic-height ((arg0 vector)) "@returns The value of [[xz-height-map::9]] using [[*traffic-height-map*]] and the [[vector]] provided - @see [[xz-height-map::9]]" +@see [[xz-height-map::9]]" (xz-height-map-method-9 *traffic-height-map* arg0) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/city/common/nav-graph-h_REF.gc b/test/decompiler/reference/jak2/levels/city/common/nav-graph-h_REF.gc index ef950d2573..b373917b9e 100644 --- a/test/decompiler/reference/jak2/levels/city/common/nav-graph-h_REF.gc +++ b/test/decompiler/reference/jak2/levels/city/common/nav-graph-h_REF.gc @@ -22,11 +22,11 @@ (:methods (nav-branch-method-9 (_type_) none 9) (nav-branch-method-10 (_type_ object int) none 10) - (nav-branch-method-11 (_type_) float 11) - (nav-branch-method-12 (_type_) float 12) - (nav-branch-method-13 (_type_) float 13) + (get-density (_type_) float 11) + (get-speed-limit (_type_) float 12) + (get-width (_type_) float 13) (user-limit-reached? (_type_) symbol 14) - (nav-branch-method-15 (_type_) symbol 15) + (dest-node-id-at-max? (_type_) symbol 15) (nav-branch-method-16 (_type_ float) none 16) (nav-branch-method-17 (_type_ float) none 17) (nav-branch-method-18 (_type_ float) none 18) @@ -91,7 +91,7 @@ (get-position (_type_ vector) vector 18) (calc-sine-and-cosine! (_type_ vector) vector 19) (get-angle (_type_) float 20) - (nav-node-method-21 (_type_) float 21) + (get-radius (_type_) float 21) ) ) @@ -139,23 +139,23 @@ ) ;; definition for method 11 of type nav-branch -(defmethod nav-branch-method-11 nav-branch ((obj nav-branch)) +(defmethod get-density nav-branch ((obj nav-branch)) "TODO - @returns `density * 0.0078125` - is this some kind of trick?" +@returns `density * 0.0078125` - is this some kind of trick?" (* 0.0078125 (the float (-> obj density))) ) ;; definition for method 12 of type nav-branch -(defmethod nav-branch-method-12 nav-branch ((obj nav-branch)) +(defmethod get-speed-limit nav-branch ((obj nav-branch)) "TODO - @returns `speed-limit * 1024.0`" +@returns `speed-limit * 1024.0`" (* 1024.0 (the float (-> obj speed-limit))) ) ;; definition for method 13 of type nav-branch -(defmethod nav-branch-method-13 nav-branch ((obj nav-branch)) +(defmethod get-width nav-branch ((obj nav-branch)) "TODO - @returns `width * 256.0`" +@returns `width * 256.0`" (* 256.0 (the float (-> obj width))) ) @@ -165,15 +165,16 @@ ) ;; definition for method 15 of type nav-branch -(defmethod nav-branch-method-15 nav-branch ((obj nav-branch)) - "TODO - checks that `dest-node`'s `id` isn't #FFFF" +(defmethod dest-node-id-at-max? nav-branch ((obj nav-branch)) + "@returns if `dest-node`'s `id` is equal to `#FFFF` +@see [[nav-node]]" (!= (-> obj dest-node id) #xffff) ) ;; definition for method 21 of type nav-node -(defmethod nav-node-method-21 nav-node ((obj nav-node)) +(defmethod get-radius nav-node ((obj nav-node)) "TODO - @returns `radius * 1024.0" +@returns `radius * 1024.0" (* 1024.0 (the float (-> obj radius))) ) @@ -185,8 +186,8 @@ ;; definition for method 19 of type nav-node (defmethod calc-sine-and-cosine! nav-node ((obj nav-node) (ret vector)) "Computes the sine and cosine of the `angle`. - @param! ret The result - @returns Nothing, the result will be in `ret`" +@param! ret The result +@returns Nothing, the result will be in `ret`" (let ((angle (the float (-> obj angle))) (sin-cos-result (new 'stack-no-clear 'vector)) ) @@ -203,7 +204,7 @@ ;; INFO: Used lq/sq (defmethod get-position nav-node ((obj nav-node) (ret vector)) "@param! ret The [[vector]] that is modified to hold the result - @returns the `position` [[vector]] with a `w` component of `1.0`" +@returns the `position` [[vector]] with a `w` component of `1.0`" (set! (-> ret quad) (-> obj position quad)) (set! (-> ret w) 1.0) ret @@ -325,8 +326,8 @@ ;; definition for method 41 of type nav-graph (defmethod node-at-idx nav-graph ((obj nav-graph) (idx int)) "Get the `nav-node` at a given position. - @param idx The position in the `node-array` to return - @returns the [[nav-node]] if it can be found, otherwise return [[#f]]" +@param idx The position in the `node-array` to return +@returns the [[nav-node]] if it can be found, otherwise return [[#f]]" (let ((v0-0 (the-as nav-node #f))) (if (and (>= idx 0) (< idx (-> obj node-count))) (set! v0-0 (-> obj node-array idx)) @@ -337,7 +338,3 @@ ;; failed to figure out what this is: 0 - - - - diff --git a/test/decompiler/reference/jak2/levels/city/common/vehicle-rider_REF.gc b/test/decompiler/reference/jak2/levels/city/common/vehicle-rider_REF.gc index 6303e32667..05a582b400 100644 --- a/test/decompiler/reference/jak2/levels/city/common/vehicle-rider_REF.gc +++ b/test/decompiler/reference/jak2/levels/city/common/vehicle-rider_REF.gc @@ -291,6 +291,12 @@ ;; definition for method 11 of type vehicle-rider ;; WARN: Return type mismatch entity-perm-status vs none. (defmethod init-from-entity! vehicle-rider ((obj vehicle-rider) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (process-entity-status! obj (entity-perm-status dead) #t) (none) ) diff --git a/test/decompiler/reference/jak2/levels/city/market/ctymark-obs_REF.gc b/test/decompiler/reference/jak2/levels/city/market/ctymark-obs_REF.gc index bb91b69ea9..65efc06636 100644 --- a/test/decompiler/reference/jak2/levels/city/market/ctymark-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/city/market/ctymark-obs_REF.gc @@ -614,23 +614,16 @@ ) ;; definition for function check-market-piece-ground -;; WARN: Return type mismatch number vs float. +;; WARN: Return type mismatch number vs none. (defun check-market-piece-ground ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 sparticle-launchinfo)) - (the-as - float - (cond - ((and (>= 35225.6 (-> arg2 launchrot y)) (>= 0.0 (-> arg1 vel-sxvel y))) - (set! (-> arg2 launchrot y) 35225.6) - ) - (else - (let ((v0-0 (the-as number (* (max 1 (the-as int (-> *display* clock (-> arg1 clock-index) sparticle-data x))) 2))) - ) - (set! (-> arg1 next-time) (the-as uint v0-0)) - v0-0 - ) - ) + "TODO" + (if (and (>= 35225.6 (-> arg2 launchrot y)) (>= 0.0 (-> arg1 vel-sxvel y))) + (set! (-> arg2 launchrot y) 35225.6) + (set! (-> arg1 next-time) + (the-as uint (* (max 1 (the-as int (-> *display* clock (-> arg1 clock-index) sparticle-data x))) 2)) + ) ) - ) + (none) ) ;; failed to figure out what this is: @@ -1069,13 +1062,13 @@ :event (behavior ((proc process) (arg1 int) (event-type symbol) (event event-message-block)) (case event-type (('attack) - (let ((a1-2 (-> event param 1))) + (let ((attack-info (-> event param 1))) (when proc - (let ((a2-1 (find-offending-process-focusable proc (the-as attack-info a1-2)))) - (when a2-1 + (let ((attacking-proc (find-offending-process-focusable proc (the-as attack-info attack-info)))) + (when attacking-proc (forward-up-nopitch->inv-matrix (-> self explode-matrix) - (vector-! (new 'stack-no-clear 'vector) (-> a2-1 root-override trans) (-> self root-override trans)) + (vector-! (new 'stack-no-clear 'vector) (-> attacking-proc root-override trans) (-> self root-override trans)) *up-vector* ) (set! (-> self explode-matrix trans quad) (-> self root-override trans quad)) @@ -1099,9 +1092,9 @@ :virtual #t :code (behavior () (logior! (-> self focus-status) (focus-status dead)) - (let ((v1-3 (-> self root-override root-prim))) - (set! (-> v1-3 prim-core collide-as) (collide-spec)) - (set! (-> v1-3 prim-core collide-with) (collide-spec)) + (let ((root-prim (-> self root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (logior! (-> self draw status) (draw-control-status no-draw)) @@ -1117,8 +1110,8 @@ :to self ) (process-entity-status! self (entity-perm-status dead) #t) - (let ((gp-1 (-> self clock frame-counter))) - (until (>= (- (-> self clock frame-counter) gp-1) (seconds 5)) + (let ((frame (-> self clock frame-counter))) + (until (>= (- (-> self clock frame-counter) frame) (seconds 5)) (suspend) ) ) @@ -1166,21 +1159,27 @@ ;; definition for method 11 of type market-basket-a ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! market-basket-a ((obj market-basket-a) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 0.0 7372.8 0.0 8192.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 8192.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) prim-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s4-0 penetrated-by) + (set! (-> cshape penetrated-by) (penetrate generic-attack lunge @@ -1200,7 +1199,7 @@ knocked ) ) - (set! (-> obj root-override) s4-0) + (set! (-> obj root-override) cshape) ) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1257,21 +1256,27 @@ ;; definition for method 11 of type market-basket-b ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! market-basket-b ((obj market-basket-b) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 0.0 7372.8 0.0 8192.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 8192.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) prim-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s4-0 penetrated-by) + (set! (-> cshape penetrated-by) (penetrate generic-attack lunge @@ -1291,7 +1296,7 @@ knocked ) ) - (set! (-> obj root-override) s4-0) + (set! (-> obj root-override) cshape) ) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1348,21 +1353,27 @@ ;; definition for method 11 of type market-crate ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! market-crate ((obj market-crate) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 0.0 7372.8 0.0 8192.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 8192.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) prim-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s4-0 penetrated-by) + (set! (-> cshape penetrated-by) (penetrate generic-attack lunge @@ -1382,7 +1393,7 @@ knocked ) ) - (set! (-> obj root-override) s4-0) + (set! (-> obj root-override) cshape) ) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1439,21 +1450,27 @@ ;; definition for method 11 of type market-sack-a ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! market-sack-a ((obj market-sack-a) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 0.0 7372.8 0.0 8192.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 8192.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) prim-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s4-0 penetrated-by) + (set! (-> cshape penetrated-by) (penetrate generic-attack lunge @@ -1473,7 +1490,7 @@ knocked ) ) - (set! (-> obj root-override) s4-0) + (set! (-> obj root-override) cshape) ) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1530,21 +1547,27 @@ ;; definition for method 11 of type market-sack-b ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! market-sack-b ((obj market-sack-b) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 0.0 7372.8 0.0 8192.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 3) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 8192.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) prim-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s4-0 penetrated-by) + (set! (-> cshape penetrated-by) (penetrate generic-attack lunge @@ -1564,7 +1587,7 @@ knocked ) ) - (set! (-> obj root-override) s4-0) + (set! (-> obj root-override) cshape) ) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1584,22 +1607,22 @@ ;; definition for function market-activate ;; WARN: Return type mismatch int vs none. (defun market-activate ((arg0 level)) - (let* ((v1-0 (-> arg0 name)) - (gp-0 (cond - ((= v1-0 'ctymarka) - (new 'static 'boxed-array :type int32 5 0 0 #x64f01c00 #x64f01d00) + (let* ((name (-> arg0 name)) + (int-arr (cond + ((= name 'ctymarka) + (new 'static 'boxed-array :type int32 5 0 0 #x64f01c00 #x64f01d00) + ) + ((= name 'ctymarkb) + (new 'static 'boxed-array :type int32 5 0 0 #x65001c00 #x65001d00) + ) + ) ) - ((= v1-0 'ctymarkb) - (new 'static 'boxed-array :type int32 5 0 0 #x65001c00 #x65001d00) - ) - ) - ) ) (set! (-> (get-field-spec-by-id (-> *part-id-table* 4361) (sp-field-id spt-userdata)) initial-valuef) - (the-as float gp-0) + (the-as float int-arr) ) (set! (-> (get-field-spec-by-id (-> *part-id-table* 4360) (sp-field-id spt-userdata)) initial-valuef) - (the-as float gp-0) + (the-as float int-arr) ) ) (setup-user-array (-> *part-id-table* 4355) "wood-plain-debris") diff --git a/test/decompiler/reference/jak2/levels/city/misc/collection_task/collection-task_REF.gc b/test/decompiler/reference/jak2/levels/city/misc/collection_task/collection-task_REF.gc index bfc21a2560..86b1ecc967 100644 --- a/test/decompiler/reference/jak2/levels/city/misc/collection_task/collection-task_REF.gc +++ b/test/decompiler/reference/jak2/levels/city/misc/collection_task/collection-task_REF.gc @@ -81,34 +81,38 @@ ;; definition for method 22 of type krew-collection-item ;; INFO: Used lq/sq (defmethod find-ground krew-collection-item ((obj krew-collection-item)) - (let ((s4-0 #f)) - (let ((gp-0 (new 'stack-no-clear 'collide-query-with-2vec))) - (set! (-> gp-0 vec quad) (-> obj root trans quad)) - (set! (-> gp-0 cquery start-pos quad) (-> gp-0 vec quad)) - (vector-reset! (-> gp-0 vec2)) - (set! (-> gp-0 vec2 y) 1.0) - (set-vector! (-> gp-0 cquery move-dist) 0.0 -40960.0 0.0 1.0) - (let ((v1-5 (-> gp-0 cquery))) - (set! (-> v1-5 radius) 1024.0) - (set! (-> v1-5 collide-with) (collide-spec backgnd)) - (set! (-> v1-5 ignore-process0) #f) - (set! (-> v1-5 ignore-process1) #f) - (set! (-> v1-5 ignore-pat) (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1)) - (set! (-> v1-5 action-mask) (collide-action solid)) + "TODO - understand the collision query stuff more +@returns whether or not the [[self]] is above the ground" + (let ((on-ground? #f)) + (let ((query (new 'stack-no-clear 'collide-query-with-2vec))) + (set! (-> query vec quad) (-> obj root trans quad)) + (set! (-> query cquery start-pos quad) (-> query vec quad)) + (vector-reset! (-> query vec2)) + (set! (-> query vec2 y) 1.0) + (set-vector! (-> query cquery move-dist) 0.0 -40960.0 0.0 1.0) + (let ((_query (-> query cquery))) + (set! (-> _query radius) 1024.0) + (set! (-> _query collide-with) (collide-spec backgnd)) + (set! (-> _query ignore-process0) #f) + (set! (-> _query ignore-process1) #f) + (set! (-> _query ignore-pat) + (new 'static 'pat-surface :noentity #x1 :nojak #x1 :probe #x1 :noendlessfall #x1) + ) + (set! (-> _query action-mask) (collide-action solid)) ) - (let ((f0-6 (fill-and-probe-using-line-sphere *collide-cache* (-> gp-0 cquery)))) - (when (>= f0-6 0.0) - (vector+float*! (-> gp-0 vec) (-> gp-0 cquery start-pos) (-> gp-0 cquery move-dist) f0-6) - (set! (-> gp-0 vec2 quad) (-> gp-0 cquery best-other-tri normal quad)) - (set! (-> gp-0 vec y) (+ 4915.2 (-> gp-0 vec y))) - (set! s4-0 #t) - (format #t "krew-collection-item::find-ground: ground y ~M~%" (-> gp-0 vec y)) + (let ((dist (fill-and-probe-using-line-sphere *collide-cache* (-> query cquery)))) + (when (>= dist 0.0) + (vector+float*! (-> query vec) (-> query cquery start-pos) (-> query cquery move-dist) dist) + (set! (-> query vec2 quad) (-> query cquery best-other-tri normal quad)) + (set! (-> query vec y) (+ 4915.2 (-> query vec y))) + (set! on-ground? #t) + (format #t "krew-collection-item::find-ground: ground y ~M~%" (-> query vec y)) ) ) - (set! (-> obj root trans quad) (-> gp-0 vec quad)) - (forward-up-nopitch->quaternion (-> obj root quat) (new 'static 'vector :z 1.0 :w 1.0) (-> gp-0 vec2)) + (set! (-> obj root trans quad) (-> query vec quad)) + (forward-up-nopitch->quaternion (-> obj root quat) (new 'static 'vector :z 1.0 :w 1.0) (-> query vec2)) ) - s4-0 + on-ground? ) ) @@ -116,23 +120,21 @@ (defstate idle (krew-collection-item) :virtual #t :trans (behavior () - (let ((v1-0 *target*) - (gp-0 (new 'stack-no-clear 'vector)) + (let ((target *target*) + (vec (new 'stack-no-clear 'vector)) ) - (when v1-0 - (set! (-> gp-0 quad) (-> v1-0 control trans quad)) - (set! (-> gp-0 w) 4096.0) - (when (logtest? (focus-status pilot) (-> v1-0 focus-status)) - (let ((a1-4 (handle->process (-> v1-0 pilot vehicle)))) - (set! (-> gp-0 quad) - (-> (the-as collide-shape (-> (the-as process-drawable a1-4) root)) root-prim prim-core world-sphere quad) - ) + (when target + (set! (-> vec quad) (-> target control trans quad)) + (set! (-> vec w) 4096.0) + (when (logtest? (focus-status pilot) (-> target focus-status)) + (let ((vehicle (handle->process (-> target pilot vehicle)))) + (set! (-> vec quad) (-> (the-as vehicle vehicle) root-override-2 root-prim prim-core world-sphere quad)) ) ) - (let ((f0-1 (vector-vector-distance-squared (-> self root trans) gp-0)) - (f1-1 (+ 12288.0 (-> gp-0 w))) + (let ((dist-from-target (vector-vector-distance-squared (-> self root trans) vec)) + (pickup-dist (+ 12288.0 (-> vec w))) ) - (when (>= (* f1-1 f1-1) f0-1) + (when (>= (* pickup-dist pickup-dist) dist-from-target) (sound-play "skill-pickup") (set! (-> *game-info* counter) (+ -1.0 (-> *game-info* counter))) (go-virtual die) @@ -143,16 +145,16 @@ (none) ) :code (behavior () - (let ((gp-0 (new 'stack-no-clear 'task-arrow-params))) - (let ((v1-0 (new 'stack-no-clear 'vector))) - (set! (-> v1-0 quad) (-> self root trans quad)) - (set! (-> v1-0 y) (+ -6144.0 (-> v1-0 y))) - (set! (-> gp-0 pos quad) (-> v1-0 quad)) + (let ((beam-params (new 'stack-no-clear 'task-arrow-params))) + (let ((beam-location (new 'stack-no-clear 'vector))) + (set! (-> beam-location quad) (-> self root trans quad)) + (set! (-> beam-location y) (+ -6144.0 (-> beam-location y))) + (set! (-> beam-params pos quad) (-> beam-location quad)) ) - (quaternion-identity! (-> gp-0 quat)) - (set! (-> gp-0 flags) (task-arrow-flags)) - (set! (-> gp-0 map-icon) (the-as uint 15)) - (task-arrow-spawn gp-0 (the-as task-arrow self)) + (quaternion-identity! (-> beam-params quat)) + (set! (-> beam-params flags) (task-arrow-flags)) + (set! (-> beam-params map-icon) (the-as uint 15)) + (task-arrow-spawn beam-params (the-as task-arrow self)) ) (until #f (ja-no-eval :group! (ja-group) @@ -181,11 +183,13 @@ ;; definition for function krew-collection-item-init-by-other ;; INFO: Used lq/sq -;; WARN: Return type mismatch object vs krew-collection-item. -(defbehavior krew-collection-item-init-by-other krew-collection-item ((arg0 vector)) +;; WARN: Return type mismatch object vs none. +(defbehavior krew-collection-item-init-by-other krew-collection-item ((position vector)) + "Given a [[vector]] defining it's position, create a [[krew-collection-item]] +@param position The intended position of the item" (set! (-> self level) (level-get *level* 'lsack)) (set! (-> self root) (new 'process 'trsqv)) - (set! (-> self root trans quad) (-> arg0 quad)) + (set! (-> self root trans quad) (-> position quad)) (quaternion-identity! (-> self root quat)) (set-vector! (-> self root scale) 3.0 3.0 3.0 1.0) (initialize-skeleton @@ -201,19 +205,23 @@ (new 'process 'shadow-control -12288.0 12288.0 614400.0 (shadow-flags shdf00 shdf04) 245760.0) ) ) - (the-as krew-collection-item (go-virtual idle)) + (go-virtual idle) + (none) ) ;; definition for function krew-collection-item-spawn ;; WARN: Return type mismatch process vs krew-collection-item. -(defun krew-collection-item-spawn ((arg0 process) (arg1 vector)) - (let ((gp-0 (the-as process #f))) - (let ((v1-1 (process-spawn krew-collection-item arg1 :to arg0))) - (if v1-1 - (set! gp-0 (-> v1-1 0)) +(defun krew-collection-item-spawn ((proc process) (position vector)) + "Given a [[vector]] defining it's position, create a [[krew-collection-item]] via [[process-spawn]] +@param proc The [[process]] that is used to spawn the new item +@param position The intended position of the item" + (let ((new-krew-item (the-as process #f))) + (let ((new-proc (process-spawn krew-collection-item position :to proc))) + (if new-proc + (set! new-krew-item (-> new-proc 0)) ) ) - (the-as krew-collection-item gp-0) + (the-as krew-collection-item new-krew-item) ) ) @@ -222,83 +230,84 @@ *game-info* 73 0 - (lambda :behavior task-manager - () - (set! (-> self begin-pos quad) (-> (new 'static 'vector :x -245760.0 :y 45056.0 :z 5468160.0 :w 1.0) quad)) - (set-setting! 'exclusive-task #f 0 (-> self node-info task)) - (let ((gp-0 *traffic-manager*) - (s5-0 (new 'stack 'traffic-object-spawn-params)) - ) - (set! (-> s5-0 position quad) (-> self begin-pos quad)) - (quaternion-axis-angle! (-> s5-0 rotation) 0.0 1.0 0.0 16384.0) - (set! (-> s5-0 object-type) (the-as uint 13)) - (set! (-> s5-0 behavior) (the-as uint 0)) - (set! (-> s5-0 id) (the-as uint 0)) - (set! (-> s5-0 proc) #f) - (send-event gp-0 'spawn-object s5-0) - ) - (set! (-> self start-time) 0) - (set! (-> self count) -1) - (set! (-> self max-count) 14) - (set! (-> self data-vector 0 quad) - (-> (new 'static 'vector :x 1282048.0 :y 37925.273 :z 5492736.0 :w 1.0) quad) - ) - (set! (-> self data-vector 1 quad) - (-> (new 'static 'vector :x 2392064.0 :y 23235.379 :z 5980160.0 :w 1.0) quad) - ) - (set! (-> self data-vector 2 quad) - (-> (new 'static 'vector :x 3231744.0 :y 38680.984 :z 4788224.0 :w 1.0) quad) - ) - (set! (-> self data-vector 3 quad) - (-> (new 'static 'vector :x 3829760.0 :y 38680.984 :z 3682304.0 :w 1.0) quad) - ) - (set! (-> self data-vector 4 quad) - (-> (new 'static 'vector :x 4325376.0 :y 38680.984 :z 2564096.0 :w 1.0) quad) - ) - (set! (-> self data-vector 5 quad) - (-> (new 'static 'vector :x 4014080.0 :y 38680.984 :z 1822720.0 :w 1.0) quad) - ) - (set! (-> self data-vector 6 quad) - (-> (new 'static 'vector :x 3698688.0 :y 38680.984 :z 1728512.0 :w 1.0) quad) - ) - (set! (-> self data-vector 7 quad) - (-> (new 'static 'vector :x 3792896.0 :y 38680.984 :z 2387968.0 :w 1.0) quad) - ) - (set! (-> self data-vector 8 quad) - (-> (new 'static 'vector :x 4616192.0 :y 38680.984 :z 2863104.0 :w 1.0) quad) - ) - (set! (-> self data-vector 9 quad) - (-> (new 'static 'vector :x 3633152.0 :y 38680.984 :z 3477504.0 :w 1.0) quad) - ) - (set! (-> self data-vector 10 quad) - (-> (new 'static 'vector :x 3993600.0 :y 38680.984 :z 4378624.0 :w 1.0) quad) - ) - (set! (-> self data-vector 11 quad) - (-> (new 'static 'vector :x 3112960.0 :y 23472.947 :z 5390336.0 :w 1.0) quad) - ) - (set! (-> self data-vector 12 quad) - (-> (new 'static 'vector :x 1789952.0 :y 37616.027 :z 5455872.0 :w 1.0) quad) - ) - (set! (-> self data-vector 13 quad) - (-> (new 'static 'vector :x 237568.0 :y 37541.477 :z 5439488.0 :w 1.0) quad) - ) - (set! (-> self data-int32 0) #x2904) - (set! (-> self data-int32 1) 9000) - (set! (-> self data-int32 2) 9000) - (set! (-> self data-int32 3) 9000) - (set! (-> self data-int32 4) 9000) - (set! (-> self data-int32 5) 9000) - (set! (-> self data-int32 6) 3000) - (set! (-> self data-int32 7) 6000) - (set! (-> self data-int32 8) 9000) - (set! (-> self data-int32 9) 9000) - (set! (-> self data-int32 10) 9000) - (set! (-> self data-int32 11) 9000) - (set! (-> self data-int32 12) 7500) - (set! (-> self data-int32 13) 7500) - (let ((f0-1 (the float (-> self max-count)))) - (set! (-> *game-info* counter) f0-1) - (the-as object f0-1) + (the-as + (function object) + (lambda :behavior task-manager + () + (set! (-> self begin-pos quad) (-> (new 'static 'vector :x -245760.0 :y 45056.0 :z 5468160.0 :w 1.0) quad)) + (set-setting! 'exclusive-task #f 0 (-> self node-info task)) + (let ((traffic-manager *traffic-manager*) + (traffic-obj-params (new 'stack 'traffic-object-spawn-params)) + ) + (set! (-> traffic-obj-params position quad) (-> self begin-pos quad)) + (quaternion-axis-angle! (-> traffic-obj-params rotation) 0.0 1.0 0.0 16384.0) + (set! (-> traffic-obj-params object-type) (the-as uint 13)) + (set! (-> traffic-obj-params behavior) (the-as uint 0)) + (set! (-> traffic-obj-params id) (the-as uint 0)) + (set! (-> traffic-obj-params proc) #f) + (send-event traffic-manager 'spawn-object traffic-obj-params) + ) + (set! (-> self start-time) 0) + (set! (-> self count) -1) + (set! (-> self max-count) 14) + (set! (-> self data-vector 0 quad) + (-> (new 'static 'vector :x 1282048.0 :y 37925.273 :z 5492736.0 :w 1.0) quad) + ) + (set! (-> self data-vector 1 quad) + (-> (new 'static 'vector :x 2392064.0 :y 23235.379 :z 5980160.0 :w 1.0) quad) + ) + (set! (-> self data-vector 2 quad) + (-> (new 'static 'vector :x 3231744.0 :y 38680.984 :z 4788224.0 :w 1.0) quad) + ) + (set! (-> self data-vector 3 quad) + (-> (new 'static 'vector :x 3829760.0 :y 38680.984 :z 3682304.0 :w 1.0) quad) + ) + (set! (-> self data-vector 4 quad) + (-> (new 'static 'vector :x 4325376.0 :y 38680.984 :z 2564096.0 :w 1.0) quad) + ) + (set! (-> self data-vector 5 quad) + (-> (new 'static 'vector :x 4014080.0 :y 38680.984 :z 1822720.0 :w 1.0) quad) + ) + (set! (-> self data-vector 6 quad) + (-> (new 'static 'vector :x 3698688.0 :y 38680.984 :z 1728512.0 :w 1.0) quad) + ) + (set! (-> self data-vector 7 quad) + (-> (new 'static 'vector :x 3792896.0 :y 38680.984 :z 2387968.0 :w 1.0) quad) + ) + (set! (-> self data-vector 8 quad) + (-> (new 'static 'vector :x 4616192.0 :y 38680.984 :z 2863104.0 :w 1.0) quad) + ) + (set! (-> self data-vector 9 quad) + (-> (new 'static 'vector :x 3633152.0 :y 38680.984 :z 3477504.0 :w 1.0) quad) + ) + (set! (-> self data-vector 10 quad) + (-> (new 'static 'vector :x 3993600.0 :y 38680.984 :z 4378624.0 :w 1.0) quad) + ) + (set! (-> self data-vector 11 quad) + (-> (new 'static 'vector :x 3112960.0 :y 23472.947 :z 5390336.0 :w 1.0) quad) + ) + (set! (-> self data-vector 12 quad) + (-> (new 'static 'vector :x 1789952.0 :y 37616.027 :z 5455872.0 :w 1.0) quad) + ) + (set! (-> self data-vector 13 quad) + (-> (new 'static 'vector :x 237568.0 :y 37541.477 :z 5439488.0 :w 1.0) quad) + ) + (set! (-> self data-int32 0) #x2904) + (set! (-> self data-int32 1) 9000) + (set! (-> self data-int32 2) 9000) + (set! (-> self data-int32 3) 9000) + (set! (-> self data-int32 4) 9000) + (set! (-> self data-int32 5) 9000) + (set! (-> self data-int32 6) 3000) + (set! (-> self data-int32 7) 6000) + (set! (-> self data-int32 8) 9000) + (set! (-> self data-int32 9) 9000) + (set! (-> self data-int32 10) 9000) + (set! (-> self data-int32 11) 9000) + (set! (-> self data-int32 12) 7500) + (set! (-> self data-int32 13) 7500) + (set! (-> *game-info* counter) (the float (-> self max-count))) + (none) ) ) ) @@ -316,37 +325,37 @@ *game-info* 73 2 - (lambda :behavior task-manager - () - (check-time self) - (when (>= (-> self count) 0) - (cond - ((handle->process (-> self slave 0)) - #f - ) - (else - (let ((gp-0 (-> self count))) - (cond - ((< gp-0 (-> self max-count)) - (let ((a0-6 (krew-collection-item-spawn self (-> self data-vector gp-0)))) - (when a0-6 - (set! (-> self slave 0) (process->handle a0-6)) - (set! (-> self time-limit) (the-as time-frame (-> self data-int32 gp-0))) - (set! (-> self start-time) (-> self clock frame-counter)) - (let ((v0-1 (the-as object (+ (-> self count) 1)))) - (set! (-> self count) (the-as int v0-1)) - v0-1 + (the-as + (function object) + (lambda :behavior task-manager + () + (check-time self) + (when (>= (-> self count) 0) + (cond + ((handle->process (-> self slave 0)) + ) + (else + (let ((task-count (-> self count))) + (cond + ((< task-count (-> self max-count)) + (let ((krew-item (krew-collection-item-spawn self (-> self data-vector task-count)))) + (when krew-item + (set! (-> self slave 0) (process->handle krew-item)) + (set! (-> self time-limit) (the-as time-frame (-> self data-int32 task-count))) + (set! (-> self start-time) (-> self clock frame-counter)) + (+! (-> self count) 1) ) ) ) - ) - (else - (go-virtual complete) + (else + (go-virtual complete) + ) ) ) ) ) ) + (none) ) ) ) @@ -358,11 +367,15 @@ 3 (lambda :behavior task-manager () - (local-vars (v1-2 symbol)) - (until (or v1-2 (and *target* (logtest? (focus-status pilot) (-> *target* focus-status)))) + (local-vars (moved-beyond-start? symbol)) + (until (or moved-beyond-start? (and *target* (logtest? (focus-status pilot) (-> *target* focus-status)))) (suspend) - (let ((f0-0 122880.0)) - (set! v1-2 (< (* f0-0 f0-0) (vector-vector-distance-squared (-> self begin-pos) (target-pos 0)))) + (let ((min-start-distance 122880.0)) + (set! moved-beyond-start? + (< (* min-start-distance min-start-distance) + (vector-vector-distance-squared (-> self begin-pos) (target-pos 0)) + ) + ) ) ) (set-setting! 'airlock #f 0 0) @@ -393,14 +406,18 @@ *game-info* 73 4 - (lambda :behavior task-manager - () - (send-event *traffic-manager* 'decrease-alert-level 0) - (send-event *traffic-manager* 'set-alert-duration 9000) - (set! (-> self state-time) (-> self clock frame-counter)) - (while (< (- (-> self clock frame-counter) (-> self state-time)) (seconds 2)) - (suspend) + (the-as + (function object) + (lambda :behavior task-manager + () + (send-event *traffic-manager* 'decrease-alert-level 0) + (send-event *traffic-manager* 'set-alert-duration 9000) + (set! (-> self state-time) (-> self clock frame-counter)) + (while (< (- (-> self clock frame-counter) (-> self state-time)) (seconds 2)) + (suspend) + ) + (talker-spawn-func (-> *talker-speech* 88) *entity-pool* (target-pos 0) (the-as region #f)) + (none) ) - (the-as object (talker-spawn-func (-> *talker-speech* 88) *entity-pool* (target-pos 0) (the-as region #f))) ) ) diff --git a/test/decompiler/reference/jak2/levels/city/oracle/oracle-scenes_REF.gc b/test/decompiler/reference/jak2/levels/city/oracle/oracle-scenes_REF.gc index 227fb4aa0e..476dfb3339 100644 --- a/test/decompiler/reference/jak2/levels/city/oracle/oracle-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/city/oracle/oracle-scenes_REF.gc @@ -859,7 +859,7 @@ ;; definition for method 35 of type oracle-npc (defmethod get-art-elem oracle-npc ((obj oracle-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (logior! (-> obj draw status) (draw-control-status no-draw-bounds)) (let ((v1-4 (-> obj root-override root-prim))) (set! (-> v1-4 prim-core collide-as) (collide-spec)) diff --git a/test/decompiler/reference/jak2/levels/city/port/race/errol-chal-part_REF.gc b/test/decompiler/reference/jak2/levels/city/port/race/errol-chal-part_REF.gc index 284204bf03..ba88840f13 100644 --- a/test/decompiler/reference/jak2/levels/city/port/race/errol-chal-part_REF.gc +++ b/test/decompiler/reference/jak2/levels/city/port/race/errol-chal-part_REF.gc @@ -125,11 +125,8 @@ ;; definition for function city-race-borrow-level-activate (defun city-race-borrow-level-activate () + "Sets up the `errol-ring-01` and `errol-ring-02` particles" (setup-user-array (-> *part-id-table* 4603) "errol-ring-01") (setup-user-array (-> *part-id-table* 4605) "errol-ring-02") (none) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/common/ai/bot_REF.gc b/test/decompiler/reference/jak2/levels/common/ai/bot_REF.gc index bd73cf23c4..d774a78d60 100644 --- a/test/decompiler/reference/jak2/levels/common/ai/bot_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/ai/bot_REF.gc @@ -1114,7 +1114,7 @@ ;; WARN: Using new Jak 2 rtype-of (defmethod bot-check-too-far bot ((obj bot)) "Call the current [[bot-waypoint]]'s `check-too-far` function if available, otherwise use the default `course` one. - If the player is too far, play a warning speech." +If the player is too far, play a warning speech." (with-pp (let ((result 0)) (let ((too-far-check (-> obj delay-too-far-check))) @@ -2088,7 +2088,3 @@ (none) ) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/common/airlock_REF.gc b/test/decompiler/reference/jak2/levels/common/airlock_REF.gc index 00d1392b62..7d652b282e 100644 --- a/test/decompiler/reference/jak2/levels/common/airlock_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/airlock_REF.gc @@ -898,6 +898,12 @@ ;; definition for method 11 of type com-airlock-outer ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! com-airlock-outer ((obj com-airlock-outer) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -976,6 +982,12 @@ ;; definition for method 11 of type com-airlock-inner ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! com-airlock-inner ((obj com-airlock-inner) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1068,6 +1080,12 @@ ;; definition for method 11 of type fort-entry-gate ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-entry-gate ((obj fort-entry-gate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1144,6 +1162,12 @@ ;; definition for method 11 of type hip-door-a ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! hip-door-a ((obj hip-door-a) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1222,6 +1246,12 @@ ;; definition for method 11 of type tomb-mar-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-mar-door ((obj tomb-mar-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) @@ -1308,6 +1338,12 @@ ;; definition for method 11 of type pal-throne-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! pal-throne-door ((obj pal-throne-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1385,6 +1421,12 @@ ;; definition for method 11 of type vin-door-ctyinda ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! vin-door-ctyinda ((obj vin-door-ctyinda) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1462,6 +1504,12 @@ ;; definition for method 11 of type under-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! under-door ((obj under-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1536,6 +1584,12 @@ ;; definition for method 11 of type oracle-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! oracle-door ((obj oracle-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) diff --git a/test/decompiler/reference/jak2/levels/common/battle_REF.gc b/test/decompiler/reference/jak2/levels/common/battle_REF.gc index e6601dd880..01fac206ad 100644 --- a/test/decompiler/reference/jak2/levels/common/battle_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/battle_REF.gc @@ -2063,6 +2063,12 @@ ;; definition for method 11 of type battle ;; INFO: Used lq/sq (defmethod init-from-entity! battle ((obj battle) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask enemy) (-> obj mask))) (let ((s4-0 (new 'process 'trsqv))) (set! (-> obj root) s4-0) diff --git a/test/decompiler/reference/jak2/levels/common/elec-gate_REF.gc b/test/decompiler/reference/jak2/levels/common/elec-gate_REF.gc index c35bdf7e8b..071a0aca60 100644 --- a/test/decompiler/reference/jak2/levels/common/elec-gate_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/elec-gate_REF.gc @@ -805,7 +805,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod set-elec-scale-if-close! elec-gate ((obj elec-gate) (arg0 float)) "If [[target]]'s position is within `80` [[meters]], set the scale to the value provided - @see [[elec-gate::29]]" +@see [[elec-gate::29]]" (if (< (vector-vector-distance (-> obj root trans) (target-pos 0)) 327680.0) (set-elec-scale! obj arg0) ) @@ -887,9 +887,9 @@ ;; WARN: Return type mismatch int vs none. (defmethod set-state! elec-gate ((obj elec-gate)) "If either [[actor-option::17]] is set on the [[elec-gate]] or the related subtask is completed - make the gate `idle`. +make the gate `idle`. - Otherwise, the gate will be `active`." +Otherwise, the gate will be `active`." (if (or (logtest? (actor-option user17) (-> obj fact options)) (and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status subtask-complete))) ) @@ -903,6 +903,12 @@ ;; definition for method 11 of type elec-gate ;; INFO: Used lq/sq (defmethod init-from-entity! elec-gate ((obj elec-gate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (set! (-> obj entity) arg0) @@ -1004,8 +1010,8 @@ ;; WARN: Return type mismatch int vs none. (defmethod set-elec-scale! fort-elec-gate ((obj fort-elec-gate) (scale float)) "Calls associated mood functions to set the scale with the value provided - @see mood-funcs - @see mood-funcs2" +@see mood-funcs +@see mood-funcs2" (set-fordumpa-electricity-scale! scale) (set-forresca-electricity-scale! scale (-> obj palette-id)) (set-forrescb-electricity-scale! scale (-> obj palette-id)) @@ -1050,8 +1056,8 @@ ;; WARN: Return type mismatch int vs none. (defmethod set-elec-scale! drill-elec-gate ((obj drill-elec-gate) (arg0 float)) "Calls associated mood functions to set the scale with the value provided - @see mood-funcs - @see mood-funcs2" +@see mood-funcs +@see mood-funcs2" (set-drill-electricity-scale! arg0 (-> obj palette-id)) 0 (none) @@ -1114,8 +1120,8 @@ ;; WARN: Return type mismatch int vs none. (defmethod set-elec-scale! castle-elec-gate ((obj castle-elec-gate) (arg0 float)) "Calls associated mood functions to set the scale with the value provided - @see mood-funcs - @see mood-funcs2" +@see mood-funcs +@see mood-funcs2" (set-castle-electricity-scale! arg0) 0 (none) @@ -1200,8 +1206,8 @@ ;; WARN: Return type mismatch int vs none. (defmethod set-elec-scale! palroof-elec-gate ((obj palroof-elec-gate) (arg0 float)) "Calls associated mood functions to set the scale with the value provided - @see mood-funcs - @see mood-funcs2" +@see mood-funcs +@see mood-funcs2" (set-palroof-electricity-scale! arg0 (-> obj palette-id)) 0 (none) diff --git a/test/decompiler/reference/jak2/levels/common/enemy/bouncer_REF.gc b/test/decompiler/reference/jak2/levels/common/enemy/bouncer_REF.gc index 276b8255f6..48c02d93b6 100644 --- a/test/decompiler/reference/jak2/levels/common/enemy/bouncer_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/enemy/bouncer_REF.gc @@ -250,6 +250,12 @@ ;; definition for method 11 of type bouncer ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! bouncer ((obj bouncer) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mods) #f) (bouncer-method-24 obj) (process-drawable-from-entity! obj arg0) diff --git a/test/decompiler/reference/jak2/levels/common/enemy/guards/guard-conversation_REF.gc b/test/decompiler/reference/jak2/levels/common/enemy/guards/guard-conversation_REF.gc index 4804e1f67a..54e03a8641 100644 --- a/test/decompiler/reference/jak2/levels/common/enemy/guards/guard-conversation_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/enemy/guards/guard-conversation_REF.gc @@ -434,6 +434,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! guard-conversation ((obj guard-conversation) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (set! (-> obj triggered?) #f) (set! (-> obj root) (new 'process 'trsqv)) diff --git a/test/decompiler/reference/jak2/levels/common/enemy/guards/transport-level_REF.gc b/test/decompiler/reference/jak2/levels/common/enemy/guards/transport-level_REF.gc index c28c0e53e2..f9d5b71380 100644 --- a/test/decompiler/reference/jak2/levels/common/enemy/guards/transport-level_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/enemy/guards/transport-level_REF.gc @@ -380,6 +380,12 @@ ;; definition for method 11 of type transport-level ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! transport-level ((obj transport-level) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (transport-level-method-31 obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/test/decompiler/reference/jak2/levels/common/enemy/metalhead_bearer/centurion_REF.gc b/test/decompiler/reference/jak2/levels/common/enemy/metalhead_bearer/centurion_REF.gc index cecef09d19..749bf046e2 100644 --- a/test/decompiler/reference/jak2/levels/common/enemy/metalhead_bearer/centurion_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/enemy/metalhead_bearer/centurion_REF.gc @@ -197,7 +197,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! centurion-shot ((obj centurion-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" ((the-as (function projectile none) (find-parent-method centurion-shot 31)) obj) (set! (-> obj max-speed) 327680.0) (set! (-> obj timeout) (seconds 1.25)) diff --git a/test/decompiler/reference/jak2/levels/common/entities/fort-floor-spike_REF.gc b/test/decompiler/reference/jak2/levels/common/entities/fort-floor-spike_REF.gc index 54cf764877..ad9940bb9f 100644 --- a/test/decompiler/reference/jak2/levels/common/entities/fort-floor-spike_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/entities/fort-floor-spike_REF.gc @@ -58,7 +58,7 @@ (deftype fort-floor-spike (process-drawable) ((pos-table (inline-array vector) :offset-assert 200) (spike-row spike-row-info-array :offset-assert 204) - (spike-dim basic 2 :offset-assert 208) + (spike-dim int32 2 :offset-assert 208) (attack-id int32 :offset-assert 216) (no-overlap-timer uint64 :offset-assert 224) ) @@ -68,9 +68,9 @@ :flag-assert #x18007000e8 (:methods (idle () _type_ :state 20) - (fort-floor-spike-method-21 (_type_) none 21) - (fort-floor-spike-method-22 (_type_) collide-shape-moving 22) - (fort-floor-spike-method-23 (_type_) symbol 23) + (init-spike-joints! (_type_) none 21) + (init-spike-collision! (_type_) collide-shape-moving 22) + (init-periodic-animation! (_type_) symbol 23) ) ) @@ -111,20 +111,23 @@ ;; definition for method 21 of type fort-floor-spike ;; WARN: Return type mismatch int vs none. -(defmethod fort-floor-spike-method-21 fort-floor-spike ((obj fort-floor-spike)) +(defmethod init-spike-joints! fort-floor-spike ((obj fort-floor-spike)) + "Initializes the skeleton and joints for the spike" 0 (none) ) ;; definition for method 22 of type fort-floor-spike ;; WARN: Return type mismatch int vs collide-shape-moving. -(defmethod fort-floor-spike-method-22 fort-floor-spike ((obj fort-floor-spike)) +(defmethod init-spike-collision! fort-floor-spike ((obj fort-floor-spike)) + "Initializes the collision for the particular spike" (the-as collide-shape-moving 0) ) ;; definition for method 23 of type fort-floor-spike ;; WARN: Return type mismatch int vs symbol. -(defmethod fort-floor-spike-method-23 fort-floor-spike ((obj fort-floor-spike)) +(defmethod init-periodic-animation! fort-floor-spike ((obj fort-floor-spike)) + "Initialzes the periodic animation of the spikes (exit and re-entry)" (the-as symbol 0) ) @@ -138,39 +141,41 @@ (('touched) (when (+ (-> self clock frame-counter) (seconds -2)) (let* ((s3-0 proc) - (s4-0 (if (type? s3-0 process-drawable) - (the-as process-drawable s3-0) - ) - ) + (proc-draw (if (type? s3-0 process-drawable) + (the-as process-drawable s3-0) + ) + ) ) - (when s4-0 - (let ((s3-1 (vector-x-quaternion! (new 'stack-no-clear 'vector) (-> self root quat))) - (s4-1 - (vector-normalize! (vector-! (new 'stack-no-clear 'vector) (-> s4-0 root trans) (-> self root trans)) 1.0) - ) + (when proc-draw + (let ((spike-quat (vector-x-quaternion! (new 'stack-no-clear 'vector) (-> self root quat))) + (touched-from-dir (vector-normalize! + (vector-! (new 'stack-no-clear 'vector) (-> proc-draw root trans) (-> self root trans)) + 1.0 + ) + ) ) - (vector-flatten! s4-1 s4-1 s3-1) - (set! (-> s4-1 y) 0.0) - (vector-normalize! s4-1 1.0) - (let ((a1-8 (new 'stack-no-clear 'event-message-block))) - (set! (-> a1-8 from) (process->ppointer self)) - (set! (-> a1-8 num-params) 2) - (set! (-> a1-8 message) 'attack) - (set! (-> a1-8 param 0) (-> event param 0)) - (let ((v1-11 (new 'static 'attack-info :mask (attack-info-mask vector mode shove-back shove-up id)))) - (set! (-> v1-11 id) (the-as uint (-> self attack-id))) - (set! (-> v1-11 mode) 'deadly) - (set! (-> v1-11 shove-up) 24576.0) - (set! (-> v1-11 shove-back) 16384.0) - (set! (-> v1-11 vector quad) (-> s4-1 quad)) - (set! (-> a1-8 param 1) (the-as uint v1-11)) + (vector-flatten! touched-from-dir touched-from-dir spike-quat) + (set! (-> touched-from-dir y) 0.0) + (vector-normalize! touched-from-dir 1.0) + (let ((response (new 'stack-no-clear 'event-message-block))) + (set! (-> response from) (process->ppointer self)) + (set! (-> response num-params) 2) + (set! (-> response message) 'attack) + (set! (-> response param 0) (-> event param 0)) + (let ((attack-info (new 'static 'attack-info :mask (attack-info-mask vector mode shove-back shove-up id)))) + (set! (-> attack-info id) (the-as uint (-> self attack-id))) + (set! (-> attack-info mode) 'deadly) + (set! (-> attack-info shove-up) 24576.0) + (set! (-> attack-info shove-back) 16384.0) + (set! (-> attack-info vector quad) (-> touched-from-dir quad)) + (set! (-> response param 1) (the-as uint attack-info)) ) - (send-event-function proc a1-8) + (send-event-function proc response) ) ) - (let ((v0-0 (-> self clock frame-counter))) - (set! (-> self no-overlap-timer) (the-as uint v0-0)) - v0-0 + (let ((frame-count (-> self clock frame-counter))) + (set! (-> self no-overlap-timer) (the-as uint frame-count)) + frame-count ) ) ) @@ -186,7 +191,7 @@ ) :code (the-as (function none :behavior fort-floor-spike) sleep-code) :post (behavior () - (dotimes (gp-0 (the-as int (-> self spike-dim 0))) + (dotimes (gp-0 (-> self spike-dim 0)) (let ((s5-0 (-> self spike-row data gp-0))) (let ((f0-0 (get-norm! (-> s5-0 sync) 0))) (cond @@ -199,7 +204,7 @@ ) ) ) - (dotimes (s4-0 (the-as int (-> self spike-dim 1))) + (dotimes (s4-0 (-> self spike-dim 1)) (cond ((zero? (-> s5-0 state)) (seek! @@ -239,10 +244,16 @@ ;; definition for method 11 of type fort-floor-spike ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-floor-spike ((obj fort-floor-spike) (arg0 entity-actor)) - (fort-floor-spike-method-22 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-spike-collision! obj) (process-drawable-from-entity! obj arg0) - (fort-floor-spike-method-21 obj) - (fort-floor-spike-method-23 obj) + (init-spike-joints! obj) + (init-periodic-animation! obj) (let* ((v1-6 *game-info*) (a0-6 (+ (-> v1-6 attack-id) 1)) ) @@ -301,7 +312,8 @@ ;; definition for method 21 of type fort-floor-spike-a ;; WARN: Return type mismatch int vs none. -(defmethod fort-floor-spike-method-21 fort-floor-spike-a ((obj fort-floor-spike-a)) +(defmethod init-spike-joints! fort-floor-spike-a ((obj fort-floor-spike-a)) + "Initializes the skeleton and joints for the spike" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-fort-floor-spike-a" (the-as (pointer uint32) #f))) @@ -322,7 +334,8 @@ ;; definition for method 22 of type fort-floor-spike-a ;; INFO: Used lq/sq -(defmethod fort-floor-spike-method-22 fort-floor-spike-a ((obj fort-floor-spike-a)) +(defmethod init-spike-collision! fort-floor-spike-a ((obj fort-floor-spike-a)) + "Initializes the collision for the particular spike" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 type) (sv-48 collide-shape-moving)) (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) @@ -377,13 +390,14 @@ ;; definition for method 23 of type fort-floor-spike-a ;; INFO: Used lq/sq -(defmethod fort-floor-spike-method-23 fort-floor-spike-a ((obj fort-floor-spike-a)) +(defmethod init-periodic-animation! fort-floor-spike-a ((obj fort-floor-spike-a)) + "Initialzes the periodic animation of the spikes (exit and re-entry)" (local-vars (sv-64 cspace)) (let ((s5-0 2) (s4-0 4) ) - (set! (-> obj spike-dim 0) (the-as basic s5-0)) - (set! (-> obj spike-dim 1) (the-as basic s4-0)) + (set! (-> obj spike-dim 0) s5-0) + (set! (-> obj spike-dim 1) s4-0) (set! (-> obj spike-row) (new 'process 'spike-row-info-array s5-0)) (set! (-> obj pos-table) (new 'static 'inline-array vector 8 (new 'static 'vector) @@ -416,7 +430,7 @@ (if #t (set! v1-19 (logior v1-19 1)) ) - (set! (-> a1-2 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-2 sync-type) 'sync-linear) (set! (-> a1-2 sync-flags) (the-as sync-flags v1-19)) ) (set! (-> a1-2 entity) #f) @@ -459,7 +473,8 @@ ;; definition for method 21 of type fort-floor-spike-b ;; WARN: Return type mismatch int vs none. -(defmethod fort-floor-spike-method-21 fort-floor-spike-b ((obj fort-floor-spike-b)) +(defmethod init-spike-joints! fort-floor-spike-b ((obj fort-floor-spike-b)) + "Initializes the skeleton and joints for the spike" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-fort-floor-spike-b" (the-as (pointer uint32) #f))) @@ -480,7 +495,8 @@ ;; definition for method 22 of type fort-floor-spike-b ;; INFO: Used lq/sq -(defmethod fort-floor-spike-method-22 fort-floor-spike-b ((obj fort-floor-spike-b)) +(defmethod init-spike-collision! fort-floor-spike-b ((obj fort-floor-spike-b)) + "Initializes the collision for the particular spike" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 type) (sv-48 collide-shape-moving)) (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) @@ -546,13 +562,14 @@ ;; definition for method 23 of type fort-floor-spike-b ;; INFO: Used lq/sq -(defmethod fort-floor-spike-method-23 fort-floor-spike-b ((obj fort-floor-spike-b)) +(defmethod init-periodic-animation! fort-floor-spike-b ((obj fort-floor-spike-b)) + "Initialzes the periodic animation of the spikes (exit and re-entry)" (local-vars (sv-64 cspace)) (let ((s5-0 2) (s4-0 5) ) - (set! (-> obj spike-dim 0) (the-as basic s5-0)) - (set! (-> obj spike-dim 1) (the-as basic s4-0)) + (set! (-> obj spike-dim 0) s5-0) + (set! (-> obj spike-dim 1) s4-0) (set! (-> obj spike-row) (new 'process 'spike-row-info-array s5-0)) (set! (-> obj pos-table) (new 'static 'inline-array vector 8 (new 'static 'vector) @@ -585,7 +602,7 @@ (if #t (set! v1-19 (logior v1-19 1)) ) - (set! (-> a1-2 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-2 sync-type) 'sync-linear) (set! (-> a1-2 sync-flags) (the-as sync-flags v1-19)) ) (set! (-> a1-2 entity) #f) @@ -628,17 +645,18 @@ ;; definition for method 21 of type fort-floor-spike-c ;; WARN: Return type mismatch int vs none. -(defmethod fort-floor-spike-method-21 fort-floor-spike-c ((obj fort-floor-spike-c)) +(defmethod init-spike-joints! fort-floor-spike-c ((obj fort-floor-spike-c)) + "Initializes the skeleton and joints for the spike" (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-fort-floor-spike-c" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (let ((a0-3 (-> obj skel root-channel 0))) - (set! (-> a0-3 frame-group) (the-as art-joint-anim (-> obj draw art-group data 4))) - (set! (-> a0-3 frame-num) 0.0) + (let ((channel (-> obj skel root-channel 0))) + (set! (-> channel frame-group) (the-as art-joint-anim (-> obj draw art-group data 4))) + (set! (-> channel frame-num) 0.0) (joint-control-channel-group-eval! - a0-3 + channel (the-as art-joint-anim (-> obj draw art-group data 4)) num-func-identity ) @@ -649,21 +667,22 @@ ;; definition for method 22 of type fort-floor-spike-c ;; INFO: Used lq/sq -(defmethod fort-floor-spike-method-22 fort-floor-spike-c ((obj fort-floor-spike-c)) - (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 type) (sv-48 collide-shape-moving)) - (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) - (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) - (set! (-> s5-0 reaction) cshape-reaction-default) - (set! (-> s5-0 no-reaction) +(defmethod init-spike-collision! fort-floor-spike-c ((obj fort-floor-spike-c)) + "Initializes the collision for the particular spike" + (local-vars (prim-mesh collide-shape-prim-mesh) (sv-32 type) (sv-48 collide-shape-moving)) + (let ((cshape-moving (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) + (set! (-> cshape-moving dynam) (copy *standard-dynamics* 'process)) + (set! (-> cshape-moving reaction) cshape-reaction-default) + (set! (-> cshape-moving no-reaction) (the-as (function collide-shape-moving collide-query vector vector object) nothing) ) - (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 15) 0))) - (set! (-> s5-0 total-prims) (the-as uint 16)) - (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle)) - (set! (-> s4-0 prim-core collide-with) (collide-spec jak bot enemy hit-by-others-list player-list)) - (set! (-> s4-0 prim-core action) (collide-action solid)) - (set-vector! (-> s4-0 local-sphere) 0.0 0.0 0.0 49152.0) - (set! (-> s5-0 root-prim) s4-0) + (let ((prim-group (new 'process 'collide-shape-prim-group cshape-moving (the-as uint 15) 0))) + (set! (-> cshape-moving total-prims) (the-as uint 16)) + (set! (-> prim-group prim-core collide-as) (collide-spec obstacle)) + (set! (-> prim-group prim-core collide-with) (collide-spec jak bot enemy hit-by-others-list player-list)) + (set! (-> prim-group prim-core action) (collide-action solid)) + (set-vector! (-> prim-group local-sphere) 0.0 0.0 0.0 49152.0) + (set! (-> cshape-moving root-prim) prim-group) (let* ((s3-0 '((0 4 16384) (1 5 16384) (2 6 16384) @@ -688,45 +707,46 @@ (s0-0 'process) ) (set! sv-32 collide-shape-prim-mesh) - (set! sv-48 s5-0) + (set! sv-48 cshape-moving) (let ((a3-2 (command-get-int (car s2-0) 0)) (t0-1 0) ) - (set! sv-16 (s1-0 s0-0 sv-32 sv-48 (the-as uint a3-2) (the-as uint t0-1))) + (set! prim-mesh (s1-0 s0-0 sv-32 sv-48 (the-as uint a3-2) (the-as uint t0-1))) ) ) - (let ((s1-1 sv-16)) - (set! (-> s1-1 prim-core collide-as) (-> s4-0 prim-core collide-as)) - (set! (-> s1-1 prim-core collide-with) (-> s4-0 prim-core collide-with)) - (set! (-> s1-1 prim-core action) (-> s4-0 prim-core action)) + (let ((s1-1 prim-mesh)) + (set! (-> s1-1 prim-core collide-as) (-> prim-group prim-core collide-as)) + (set! (-> s1-1 prim-core collide-with) (-> prim-group prim-core collide-with)) + (set! (-> s1-1 prim-core action) (-> prim-group prim-core action)) (set! (-> s1-1 transform-index) (command-get-int (car (cdr s2-0)) 0)) ) - (set-vector! (-> sv-16 local-sphere) 0.0 0.0 0.0 (command-get-float (car (cdr (cdr s2-0))) 0.0)) + (set-vector! (-> prim-mesh local-sphere) 0.0 0.0 0.0 (command-get-float (car (cdr (cdr s2-0))) 0.0)) (set! s3-0 (cdr s3-0)) (set! s2-0 (car s3-0)) ) ) ) - (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w))) - (let ((v1-24 (-> s5-0 root-prim))) - (set! (-> s5-0 backup-collide-as) (-> v1-24 prim-core collide-as)) - (set! (-> s5-0 backup-collide-with) (-> v1-24 prim-core collide-with)) + (set! (-> cshape-moving nav-radius) (* 0.75 (-> cshape-moving root-prim local-sphere w))) + (let ((root-prim (-> cshape-moving root-prim))) + (set! (-> cshape-moving backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape-moving backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> s5-0 event-self) 'touched) - (set! (-> obj root) s5-0) - s5-0 + (set! (-> cshape-moving event-self) 'touched) + (set! (-> obj root) cshape-moving) + cshape-moving ) ) ;; definition for method 23 of type fort-floor-spike-c ;; INFO: Used lq/sq -(defmethod fort-floor-spike-method-23 fort-floor-spike-c ((obj fort-floor-spike-c)) +(defmethod init-periodic-animation! fort-floor-spike-c ((obj fort-floor-spike-c)) + "Initialzes the periodic animation of the spikes (exit and re-entry)" (local-vars (sv-64 cspace)) (let ((s5-0 3) (s4-0 5) ) - (set! (-> obj spike-dim 0) (the-as basic s5-0)) - (set! (-> obj spike-dim 1) (the-as basic s4-0)) + (set! (-> obj spike-dim 0) s5-0) + (set! (-> obj spike-dim 1) s4-0) (set! (-> obj spike-row) (new 'process 'spike-row-info-array s5-0)) (set! (-> obj pos-table) (new 'static 'inline-array vector 8 (new 'static 'vector) @@ -759,7 +779,7 @@ (if #t (set! v1-19 (logior v1-19 1)) ) - (set! (-> a1-2 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-2 sync-type) 'sync-linear) (set! (-> a1-2 sync-flags) (the-as sync-flags v1-19)) ) (set! (-> a1-2 entity) #f) diff --git a/test/decompiler/reference/jak2/levels/common/guard-projectile_REF.gc b/test/decompiler/reference/jak2/levels/common/guard-projectile_REF.gc index 30b05a8155..8a2ac440b7 100644 --- a/test/decompiler/reference/jak2/levels/common/guard-projectile_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/guard-projectile_REF.gc @@ -364,7 +364,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod draw-laser-sight guard-shot ((obj guard-shot)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" (draw-beam (-> *part-id-table* 610) (-> obj tail-pos) (-> obj starting-dir) #f #t) (let* ((a0-3 (vector-normalize-copy! (new 'stack-no-clear 'vector) (-> obj starting-dir) 2048.0)) (v1-2 (vector+! (new 'stack-no-clear 'vector) (-> obj tail-pos) a0-3)) @@ -703,7 +703,7 @@ ;; INFO: Used lq/sq (defmethod init-proj-settings! guard-shot ((obj guard-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj hit-actor?) #f) (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (set! (-> obj attack-mode) 'guard-shot) @@ -804,7 +804,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! vehicle-grenade ((obj vehicle-grenade)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj attack-mode) 'eco-dark) (initialize-skeleton obj @@ -844,7 +844,7 @@ ;; definition for method 39 of type vehicle-grenade (defmethod play-impact-sound! vehicle-grenade ((obj vehicle-grenade)) "Plays impact sound - :virtual" +:virtual" (let* ((a2-0 (-> obj root-override)) (v1-0 (-> a2-0 status)) ) @@ -1119,7 +1119,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! guard-lazer-shot ((obj guard-lazer-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj attack-mode) 'shock) (set! (-> obj max-speed) 131072.0) (set! (-> obj timeout) (seconds 0.125)) diff --git a/test/decompiler/reference/jak2/levels/common/metalhead-projectile_REF.gc b/test/decompiler/reference/jak2/levels/common/metalhead-projectile_REF.gc index 98e084e4ea..0174bfb5a2 100644 --- a/test/decompiler/reference/jak2/levels/common/metalhead-projectile_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/metalhead-projectile_REF.gc @@ -349,7 +349,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod draw-laser-sight metalhead-shot ((obj metalhead-shot)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" (draw-beam (-> *part-id-table* 624) (-> obj tail-pos) (-> obj starting-dir) #f #t) (let* ((a0-3 (vector-normalize-copy! (new 'stack-no-clear 'vector) (-> obj starting-dir) 2048.0)) (v1-2 (vector+! (new 'stack-no-clear 'vector) (-> obj tail-pos) a0-3)) @@ -600,7 +600,7 @@ ;; INFO: Used lq/sq (defmethod init-proj-settings! metalhead-shot ((obj metalhead-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (set! (-> obj attack-mode) 'metalhead-shot) (set! (-> obj max-speed) 532480.0) @@ -992,7 +992,7 @@ ;; WARN: Return type mismatch sound-id vs none. (defmethod init-proj-settings! metalhead-grenade-shot ((obj metalhead-grenade-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj attack-mode) 'eco-yellow) (set! (-> obj blast-radius) 4096.0) (set! (-> obj max-speed) 135168.0) diff --git a/test/decompiler/reference/jak2/levels/common/scene-actor_REF.gc b/test/decompiler/reference/jak2/levels/common/scene-actor_REF.gc index f0148b7241..dbc01c3bb1 100644 --- a/test/decompiler/reference/jak2/levels/common/scene-actor_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/scene-actor_REF.gc @@ -326,7 +326,7 @@ ;; definition for method 35 of type kor-npc (defmethod get-art-elem kor-npc ((obj kor-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor kor-hideout)) (-> obj draw art-group data 5) @@ -399,6 +399,12 @@ ;; definition for method 11 of type metalkor-highres ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! metalkor-highres ((obj metalkor-highres) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -481,7 +487,7 @@ ;; definition for method 35 of type tess-npc (defmethod get-art-elem tess-npc ((obj tess-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor tess-alley)) (if (task-node-closed? (game-task-node ruins-tower-resolution)) @@ -555,7 +561,7 @@ ;; definition for method 35 of type keira-npc (defmethod get-art-elem keira-npc ((obj keira-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor keira-stadium)) (-> obj draw art-group data 3) @@ -605,7 +611,7 @@ ;; definition for method 35 of type krew-npc (defmethod get-art-elem krew-npc ((obj krew-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (-> obj draw art-group data 4) ) @@ -662,7 +668,7 @@ ;; definition for method 35 of type kid-npc (defmethod get-art-elem kid-npc ((obj kid-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor kid-alley)) (-> obj draw art-group data 5) @@ -704,7 +710,7 @@ ;; definition for method 35 of type crocadog-npc (defmethod get-art-elem crocadog-npc ((obj crocadog-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor crocadog-vinroom)) (-> obj draw art-group data 5) @@ -771,7 +777,7 @@ ;; definition for method 35 of type torn-npc (defmethod get-art-elem torn-npc ((obj torn-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (cond ((task-node-open? (game-task-node ruins-tower-introduction)) (-> obj draw art-group data 5) @@ -866,7 +872,7 @@ ;; definition for method 35 of type youngsamos-npc (defmethod get-art-elem youngsamos-npc ((obj youngsamos-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor youngsamos-forest)) (-> obj draw art-group data 4) @@ -931,7 +937,7 @@ ;; definition for method 35 of type samos-npc (defmethod get-art-elem samos-npc ((obj samos-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor samos-hideout)) (-> obj draw art-group data 4) @@ -984,8 +990,8 @@ ;; definition for method 35 of type onin-npc (defmethod get-art-elem onin-npc ((obj onin-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" - (let ((v1-1 (game-task-control-method-9 (-> obj task)))) +@returns the appropriate [[art-element]] for the given NPC" + (let ((v1-1 (get-current-task-event (-> obj task)))) (case (-> v1-1 action) (((game-task-action play)) (set! (-> obj talk-message) (game-text-id text-x186)) @@ -1072,10 +1078,10 @@ ;; definition for method 35 of type pecker-npc (defmethod get-art-elem pecker-npc ((obj pecker-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (local-vars (s5-0 art-joint-anim) (f30-0 float)) (cond - ((logtest? (-> (game-task-control-method-9 (-> obj task)) flags) (game-task-flags gatflag-02)) + ((logtest? (-> (get-current-task-event (-> obj task)) flags) (game-task-flags gatflag-02)) (-> obj draw art-group data 6) ) ((begin @@ -1191,7 +1197,7 @@ ;; definition for method 35 of type ashelin-npc (defmethod get-art-elem ashelin-npc ((obj ashelin-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor ashelin-throne)) (logior! (-> obj draw status) (draw-control-status no-draw-bounds)) @@ -1244,7 +1250,7 @@ ;; definition for method 35 of type daxter-npc (defmethod get-art-elem daxter-npc ((obj daxter-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (-> obj draw art-group data 3) ) @@ -1343,9 +1349,9 @@ ;; WARN: Return type mismatch int vs none. (defun intro-play () "A dedicated function for playing the intro cutscenes in the correct order - ```opengoal - \"intro-samos-hut\" \"intro-vortex\" \"intro-city-square\" \"intro-prison\" - ```" +```opengoal +\"intro-samos-hut\" \"intro-vortex\" \"intro-city-square\" \"intro-prison\" +```" (set! (-> *setting-control* user-default border-mode) #t) (set! (-> *level* play?) (-> *setting-control* user-default border-mode)) (process-spawn @@ -1363,9 +1369,9 @@ ;; WARN: Return type mismatch int vs none. (defun outro-play () "A dedicated function for playing the intro cutscenes in the correct order - ```opengoal - \"outro-nest\" \"outro-palace\" \"outro-hiphog\" \"outro-port\" - ```" +```opengoal +\"outro-nest\" \"outro-palace\" \"outro-hiphog\" \"outro-port\" +```" (set! (-> *setting-control* user-default border-mode) #t) (set! (-> *level* play?) (-> *setting-control* user-default border-mode)) (process-spawn diff --git a/test/decompiler/reference/jak2/levels/common/scene-looper_REF.gc b/test/decompiler/reference/jak2/levels/common/scene-looper_REF.gc index b0a251ed50..1e3a11a83a 100644 --- a/test/decompiler/reference/jak2/levels/common/scene-looper_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/scene-looper_REF.gc @@ -67,7 +67,7 @@ ;; definition for function stop-loop-scene (defun stop-loop-scene () "Kills the current [[scene-looper]] - @see [[kill-by-type]]" +@see [[kill-by-type]]" (kill-by-type scene-looper *active-pool*) ) @@ -75,7 +75,7 @@ ;; WARN: Return type mismatch (pointer process) vs (pointer scene-looper). (defun loop-scene ((scene-name symbol)) "Stops looping the current scene, then spawns a new [[scene-looper]] for the given scene - @see [[stop-loop-scene]" +@see [[stop-loop-scene]" (stop-loop-scene) (process-spawn scene-looper scene-name) ) diff --git a/test/decompiler/reference/jak2/levels/common/warp-gate_REF.gc b/test/decompiler/reference/jak2/levels/common/warp-gate_REF.gc index 2db15c85f0..ce09fe8eb3 100644 --- a/test/decompiler/reference/jak2/levels/common/warp-gate_REF.gc +++ b/test/decompiler/reference/jak2/levels/common/warp-gate_REF.gc @@ -846,6 +846,12 @@ ;; definition for method 11 of type warp-gate (defmethod init-from-entity! warp-gate ((obj warp-gate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (warp-gate-init arg0 (the-as vector #f)) (none) ) diff --git a/test/decompiler/reference/jak2/levels/consite/consite-scenes_REF.gc b/test/decompiler/reference/jak2/levels/consite/consite-scenes_REF.gc index 5d04b15865..9c38b24616 100644 --- a/test/decompiler/reference/jak2/levels/consite/consite-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/consite/consite-scenes_REF.gc @@ -537,6 +537,7 @@ ;; definition for function consite-crimson-guard-shot ;; WARN: Return type mismatch int vs none. (defun consite-crimson-guard-shot ((arg0 sparticle-launcher) (arg1 vector) (arg2 sparticle-launch-state)) + "The guards briefly shoot at Kor before being rekt" (draw-beam (-> *part-id-table* 606) arg1 (-> arg2 sprite rot-syvel) #f #t) (draw-beam (-> *part-id-table* 610) arg1 (-> arg2 sprite rot-syvel) #f #t) 0 @@ -607,9 +608,10 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. (defun movie-consite-metalkor-shot-draw-fire ((arg0 vector) (arg1 vector)) - (let ((s5-1 (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) - (draw-beam (-> *part-id-table* 624) arg0 s5-1 #f #t) - (let* ((a0-4 (vector-normalize-copy! (new 'stack-no-clear 'vector) s5-1 8192.0)) + "TODO - cutscenes/docs" + (let ((displacement (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) + (draw-beam (-> *part-id-table* 624) arg0 displacement #f #t) + (let* ((a0-4 (vector-normalize-copy! (new 'stack-no-clear 'vector) displacement 8192.0)) (v1-3 (vector+! (new 'stack-no-clear 'vector) arg0 a0-4)) (t9-2 sp-launch-particles-var) (a0-5 *sp-particle-system-2d*) @@ -628,6 +630,7 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. (defun movie-consite-metalkor-shot-draw-moving ((arg0 vector) (arg1 vector) (arg2 float)) + "TODO - cutscenes/docs" (rlet ((acc :class vf) (vf0 :class vf) (vf4 :class vf) @@ -721,6 +724,7 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. (defun movie-consite-metalkor-shot-draw-impact ((arg0 scene-player) (arg1 vector) (arg2 vector)) + "TODO - cutscenes/docs" (local-vars (sv-240 (function vector entity-actor skeleton-group vector object none :behavior manipy)) (sv-256 vector) diff --git a/test/decompiler/reference/jak2/levels/dig/dig-digger_REF.gc b/test/decompiler/reference/jak2/levels/dig/dig-digger_REF.gc index 050f6d4f11..68393f4c00 100644 --- a/test/decompiler/reference/jak2/levels/dig/dig-digger_REF.gc +++ b/test/decompiler/reference/jak2/levels/dig/dig-digger_REF.gc @@ -773,6 +773,12 @@ ;; definition for method 11 of type dig-clasp ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-clasp ((obj dig-clasp) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec enemy)) @@ -831,6 +837,12 @@ ;; definition for method 11 of type dig-clasp-b ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-clasp-b ((obj dig-clasp-b) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (when (not (task-node-closed? (game-task-node dig-knock-down-resolution))) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-sphere s4-0 (the-as uint 0)))) @@ -1616,6 +1628,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-digger ((obj dig-digger) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) diff --git a/test/decompiler/reference/jak2/levels/dig/dig-obs_REF.gc b/test/decompiler/reference/jak2/levels/dig/dig-obs_REF.gc index b74b86f20e..369472778f 100644 --- a/test/decompiler/reference/jak2/levels/dig/dig-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/dig/dig-obs_REF.gc @@ -297,7 +297,7 @@ (if #f (set! v1-25 (logior v1-25 1)) ) - (set! (-> a1-5 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-5 sync-type) 'sync-linear) (set! (-> a1-5 sync-flags) (the-as sync-flags v1-25)) ) (set! (-> a1-5 entity) s5-2) @@ -729,6 +729,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-log ((obj dig-log) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (set! (-> obj hud-handle) (the-as handle #f)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) @@ -902,6 +908,12 @@ ;; definition for method 11 of type dig-button ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-button ((obj dig-button) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) diff --git a/test/decompiler/reference/jak2/levels/dig/dig1-obs_REF.gc b/test/decompiler/reference/jak2/levels/dig/dig1-obs_REF.gc index 94a9b965b3..010d346ddc 100644 --- a/test/decompiler/reference/jak2/levels/dig/dig1-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/dig/dig1-obs_REF.gc @@ -1073,6 +1073,12 @@ ;; definition for method 11 of type dig-bomb-crate ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-bomb-crate ((obj dig-bomb-crate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 penetrated-by) (penetrate diff --git a/test/decompiler/reference/jak2/levels/dig/dig2-obs_REF.gc b/test/decompiler/reference/jak2/levels/dig/dig2-obs_REF.gc index ae9a31e551..26012296c2 100644 --- a/test/decompiler/reference/jak2/levels/dig/dig2-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/dig/dig2-obs_REF.gc @@ -56,6 +56,12 @@ ;; definition for method 11 of type dig-breakable-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-breakable-door ((obj dig-breakable-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) (let ((s4-0 (art-group-get-by-name *level* "skel-dig-breakable-door" (the-as (pointer uint32) #f)))) diff --git a/test/decompiler/reference/jak2/levels/dig/dig3-obs_REF.gc b/test/decompiler/reference/jak2/levels/dig/dig3-obs_REF.gc index c20336f00a..289d86bba8 100644 --- a/test/decompiler/reference/jak2/levels/dig/dig3-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/dig/dig3-obs_REF.gc @@ -370,6 +370,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-spikey-step ((obj dig-spikey-step) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 int)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) @@ -582,7 +588,7 @@ ;; WARN: Return type mismatch time-frame vs sound-id. (defmethod play-impact-sound! dig-spikey-sphere ((obj dig-spikey-sphere)) "Plays impact sound - :virtual" +:virtual" (let* ((a0-1 (-> obj root-override)) (s5-0 (-> a0-1 status)) ) @@ -682,7 +688,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! dig-spikey-sphere ((obj dig-spikey-sphere)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (with-pp (set! (-> obj attack-mode) 'eco-dark) (initialize-skeleton @@ -827,6 +833,12 @@ ;; definition for method 11 of type dig-spikey-sphere-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-spikey-sphere-door ((obj dig-spikey-sphere-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -842,7 +854,7 @@ (if #f (set! v1-4 (logior v1-4 1)) ) - (set! (-> a1-5 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-5 sync-type) 'sync-linear) (set! (-> a1-5 sync-flags) (the-as sync-flags v1-4)) ) (set! (-> a1-5 entity) arg0) @@ -1103,6 +1115,12 @@ ;; definition for method 11 of type dig-balloon-lurker ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-balloon-lurker ((obj dig-balloon-lurker) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 0))) (set! (-> s4-0 total-prims) (the-as uint 4)) @@ -1172,7 +1190,7 @@ (if #t (set! v1-39 (logior v1-39 1)) ) - (set! (-> a1-23 sync-type) (the-as basic 'sync-eased)) + (set! (-> a1-23 sync-type) 'sync-eased) (set! (-> a1-23 sync-flags) (the-as sync-flags v1-39)) ) (set! (-> a1-23 period) (the-as uint 3600)) @@ -1189,7 +1207,7 @@ (if #t (set! v1-46 (logior v1-46 1)) ) - (set! (-> a1-24 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-24 sync-type) 'sync-linear) (set! (-> a1-24 sync-flags) (the-as sync-flags v1-46)) ) (set! (-> a1-24 entity) arg0) @@ -1392,6 +1410,12 @@ ;; definition for method 11 of type dig-wheel-step ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-wheel-step ((obj dig-wheel-step) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 0))) (set! (-> s4-0 total-prims) (the-as uint 4)) @@ -2204,6 +2228,12 @@ ;; definition for method 11 of type dig-stomp-block-controller ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-stomp-block-controller ((obj dig-stomp-block-controller) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj played-fall?) #f) (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) @@ -2256,6 +2286,12 @@ ;; definition for method 11 of type dig-totem ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! dig-totem ((obj dig-totem) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) diff --git a/test/decompiler/reference/jak2/levels/forest/fish_REF.gc b/test/decompiler/reference/jak2/levels/forest/fish_REF.gc index ba2a333ab7..cbbc26d5ab 100644 --- a/test/decompiler/reference/jak2/levels/forest/fish_REF.gc +++ b/test/decompiler/reference/jak2/levels/forest/fish_REF.gc @@ -501,6 +501,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fish-manager ((obj fish-manager) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) diff --git a/test/decompiler/reference/jak2/levels/forest/predator_REF.gc b/test/decompiler/reference/jak2/levels/forest/predator_REF.gc index 0929f66af3..8681d7ecdc 100644 --- a/test/decompiler/reference/jak2/levels/forest/predator_REF.gc +++ b/test/decompiler/reference/jak2/levels/forest/predator_REF.gc @@ -205,7 +205,7 @@ ;; INFO: Used lq/sq (defmethod init-proj-settings! predator-shot ((obj predator-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (set! (-> obj attack-mode) 'predator-shot) (set! (-> obj max-speed) 532480.0) @@ -1548,6 +1548,12 @@ ;; definition for method 11 of type predator ;; WARN: Return type mismatch entity-perm-status vs none. (defmethod init-from-entity! predator ((obj predator) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (process-entity-status! obj (entity-perm-status dead) #t) (none) ) @@ -1720,6 +1726,12 @@ ;; WARN: Return type mismatch object vs none. ;; WARN: new jak 2 until loop case, check carefully (defmethod init-from-entity! predator-manager ((obj predator-manager) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (rlet ((acc :class vf) (vf0 :class vf) diff --git a/test/decompiler/reference/jak2/levels/forest/wren_REF.gc b/test/decompiler/reference/jak2/levels/forest/wren_REF.gc index 24832bdb69..280ddd32ce 100644 --- a/test/decompiler/reference/jak2/levels/forest/wren_REF.gc +++ b/test/decompiler/reference/jak2/levels/forest/wren_REF.gc @@ -140,7 +140,7 @@ ;; WARN: Return type mismatch object vs symbol. (defmethod spooked? wren ((obj wren)) "@returns a [[symbol]] indicating if Jak is considered close enough to the wren to spook it. - If so, it transitions from [[wren::peck]] to [[wren::hunt]]" +If so, it transitions from [[wren::peck]] to [[wren::hunt]]" (let* ((gp-0 *target*) (a0-2 (if (type? gp-0 process-focusable) gp-0 @@ -492,6 +492,12 @@ ;; definition for method 11 of type wren ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! wren ((obj wren) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpa-obs_REF.gc b/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpa-obs_REF.gc index be2486cac5..a10a3a69a4 100644 --- a/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpa-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpa-obs_REF.gc @@ -261,6 +261,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-elec-switch ((obj fort-elec-switch) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) @@ -499,6 +505,12 @@ ;; definition for method 11 of type fort-fence ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-fence ((obj fort-fence) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (fort-fence-method-23 obj) (process-drawable-from-entity! obj arg0) diff --git a/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpb-obs_REF.gc b/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpb-obs_REF.gc index 83d7599170..2603b3c710 100644 --- a/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpb-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpb-obs_REF.gc @@ -67,6 +67,12 @@ ;; definition for method 11 of type fort-plat-orbit ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-plat-orbit ((obj fort-plat-orbit) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) @@ -139,7 +145,7 @@ (if #t (set! v1-34 (logior v1-34 1)) ) - (set! (-> a1-23 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-23 sync-type) 'sync-linear) (set! (-> a1-23 sync-flags) (the-as sync-flags v1-34)) ) (set! (-> a1-23 entity) (-> obj entity)) @@ -364,6 +370,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-plat-shuttle ((obj fort-plat-shuttle) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-64 int)) (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) @@ -389,7 +401,7 @@ (if #t (set! v1-8 (logior v1-8 1)) ) - (set! (-> s4-1 sync-type) (the-as basic 'sync-linear)) + (set! (-> s4-1 sync-type) 'sync-linear) (set! (-> s4-1 sync-flags) (the-as sync-flags v1-8)) ) (set! (-> s4-1 entity) arg0) @@ -495,7 +507,7 @@ ;; definition for method 25 of type fort-conveyor (defmethod set-and-get-ambient-sound! fort-conveyor ((obj fort-conveyor)) "So long as [[actor-option::16]] is not set, fetch the [[ambient-sound]] for the [[conveyor]] - and return it as well. Otherwise, set it to `0`" +and return it as well. Otherwise, set it to `0`" (let* ((s5-0 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) 0.0 'interp)) (v1-2 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) 1.0 'interp)) (a3-3 (vector+! (new 'stack-no-clear 'vector) s5-0 v1-2)) diff --git a/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpc-obs_REF.gc b/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpc-obs_REF.gc index d0c0da9d04..0809acddde 100644 --- a/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpc-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fordumpc-obs_REF.gc @@ -168,6 +168,12 @@ ;; definition for method 11 of type fort-dump-bomb-a ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-dump-bomb-a ((obj fort-dump-bomb-a) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec bot)) @@ -1040,6 +1046,12 @@ ;; definition for method 11 of type fort-missile ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-missile ((obj fort-missile) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) diff --git a/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fort-robotank-turret_REF.gc b/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fort-robotank-turret_REF.gc index 15359d2975..1b5836c71c 100644 --- a/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fort-robotank-turret_REF.gc +++ b/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fort-robotank-turret_REF.gc @@ -790,7 +790,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-proj-settings! fort-robotank-shot ((obj fort-robotank-shot)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (set! (-> obj tail-pos quad) (-> obj root-override trans quad)) (set! (-> obj attack-mode) 'fort-robotank-shot) (set! (-> obj max-speed) 819200.0) @@ -834,28 +834,7 @@ ;; definition for function draw-2d-hud ;; INFO: Used lq/sq ;; WARN: Return type mismatch pointer vs symbol. -;; WARN: Failed store: (s.w! (+ t5-0 8) 0) at op 82 -;; WARN: Failed store: (s.w! (+ t5-0 12) t6-1) at op 84 -;; WARN: Failed store: (s.d! (+ t5-2 8) t1-0) at op 90 -;; WARN: Failed store: (s.q! (+ t5-4 16) t6-3) at op 98 -;; WARN: Failed store: (s.q! (+ t5-4 32) t6-4) at op 100 -;; WARN: Failed store: (s.q! (+ t5-4 48) t6-5) at op 102 -;; WARN: Failed store: (s.d! (+ t5-6 8) t1-0) at op 108 -;; WARN: Failed store: (s.q! (+ t5-8 16) t3-1) at op 116 -;; WARN: Failed store: (s.q! (+ t5-8 32) t3-2) at op 118 -;; WARN: Failed store: (s.q! (+ t5-8 48) t3-3) at op 120 -;; WARN: Failed store: (s.d! (+ t4-5 8) t1-0) at op 126 -;; WARN: Failed store: (s.q! (+ t4-7 16) t2-1) at op 134 -;; WARN: Failed store: (s.q! (+ t4-7 32) t2-2) at op 136 -;; WARN: Failed store: (s.q! (+ t4-7 48) t2-3) at op 138 -;; WARN: Failed store: (s.d! (+ t3-7 8) t1-0) at op 144 -;; WARN: Failed store: (s.q! (+ t1-1 16) a3-1) at op 152 -;; WARN: Failed store: (s.q! (+ t1-1 32) a3-2) at op 154 -;; WARN: Failed store: (s.q! (+ t1-1 48) a1-2) at op 156 -;; WARN: Failed load: (set! t0-6 (l.d (+ a0-28 8))) at op 170 -;; WARN: Failed store: (s.d! (+ a0-28 8) a3-10) at op 175 -;; WARN: Failed store: (s.w! (+ a0-29 8) 0) at op 183 -;; WARN: Failed store: (s.w! (+ a0-29 12) 0) at op 184 +;; ERROR: Failed store: (s.w! (+ t5-0 8) 0) at op 82 (defun draw-2d-hud ((arg0 vector)) "Unused but, maybe useful? TODO - dma buffer casting" (let ((s5-0 (new 'stack-no-clear 'inline-array 'vector4w 4)) diff --git a/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fort-robotank_REF.gc b/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fort-robotank_REF.gc index 22e79f22ca..aed5c32068 100644 --- a/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fort-robotank_REF.gc +++ b/test/decompiler/reference/jak2/levels/fortress/ammo_dump/fort-robotank_REF.gc @@ -1167,6 +1167,12 @@ ;; definition for method 11 of type fort-robotank ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-robotank ((obj fort-robotank) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) diff --git a/test/decompiler/reference/jak2/levels/fortress/exit/forexita-obs_REF.gc b/test/decompiler/reference/jak2/levels/fortress/exit/forexita-obs_REF.gc index d1fc0160dd..e84e209c01 100644 --- a/test/decompiler/reference/jak2/levels/fortress/exit/forexita-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/fortress/exit/forexita-obs_REF.gc @@ -149,8 +149,8 @@ ;; definition for method 31 of type fort-lift-plat ;; WARN: Return type mismatch collide-shape-moving vs none. -(defmethod base-plat-method-31 fort-lift-plat ((obj fort-lift-plat)) - "TODO - collision stuff" +(defmethod init-plat-collision! fort-lift-plat ((obj fort-lift-plat)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s5-0 reaction) cshape-reaction-default) @@ -222,7 +222,9 @@ ;; definition for method 33 of type fort-lift-plat ;; WARN: Return type mismatch sound-id vs none. -(defmethod base-plat-method-33 fort-lift-plat ((obj fort-lift-plat)) +(defmethod init-plat! fort-lift-plat ((obj fort-lift-plat)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." (set! (-> obj root-override pause-adjust-distance) 327680.0) (set! (-> obj sound-id) (new-sound-id)) (none) @@ -238,9 +240,9 @@ ;; definition for method 36 of type fort-lift-plat (defmethod plat-path-sync fort-lift-plat ((obj fort-lift-plat)) "If the `sync` period is greater than `0` then transition the state to [[plat::35]] - otherwise, [[plat::34]] +otherwise, [[plat::34]] - @see [[sync-eased]]" +@see [[sync-eased]]" (cond ((logtest? (-> obj path flags) (path-control-flag not-found)) (go (method-of-object obj plat-idle)) @@ -339,6 +341,12 @@ ;; definition for method 11 of type fort-claw ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-claw ((obj fort-claw) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/test/decompiler/reference/jak2/levels/fortress/fort-turret_REF.gc b/test/decompiler/reference/jak2/levels/fortress/fort-turret_REF.gc index 239898df9d..6650c00a2d 100644 --- a/test/decompiler/reference/jak2/levels/fortress/fort-turret_REF.gc +++ b/test/decompiler/reference/jak2/levels/fortress/fort-turret_REF.gc @@ -1181,7 +1181,7 @@ (if #t (set! v1-21 (logior v1-21 1)) ) - (set! (-> a1-7 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-7 sync-type) 'sync-linear) (set! (-> a1-7 sync-flags) (the-as sync-flags v1-21)) ) (set! (-> a1-7 entity) (-> obj entity)) diff --git a/test/decompiler/reference/jak2/levels/fortress/fortress-obs_REF.gc b/test/decompiler/reference/jak2/levels/fortress/fortress-obs_REF.gc index 64208752af..edd33e8e6d 100644 --- a/test/decompiler/reference/jak2/levels/fortress/fortress-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/fortress/fortress-obs_REF.gc @@ -166,6 +166,12 @@ ;; definition for method 11 of type fort-trap-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fort-trap-door ((obj fort-trap-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) diff --git a/test/decompiler/reference/jak2/levels/fortress/prison/prison-obs_REF.gc b/test/decompiler/reference/jak2/levels/fortress/prison/prison-obs_REF.gc index fab54face9..3954528816 100644 --- a/test/decompiler/reference/jak2/levels/fortress/prison/prison-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/fortress/prison/prison-obs_REF.gc @@ -276,6 +276,12 @@ ;; definition for method 11 of type prsn-hang-cell ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! prsn-hang-cell ((obj prsn-hang-cell) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (with-pp (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) @@ -464,6 +470,12 @@ ;; definition for method 11 of type prsn-cell-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! prsn-cell-door ((obj prsn-cell-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) @@ -549,6 +561,12 @@ ;; definition for method 11 of type prsn-vent-fan ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! prsn-vent-fan ((obj prsn-vent-fan) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -616,6 +634,12 @@ ;; definition for method 11 of type prsn-torture ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! prsn-torture ((obj prsn-torture) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 penetrated-by) (penetrate)) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 9) 0))) diff --git a/test/decompiler/reference/jak2/levels/gungame/gun-dummy_REF.gc b/test/decompiler/reference/jak2/levels/gungame/gun-dummy_REF.gc index 988b3bd460..bce17a5c64 100644 --- a/test/decompiler/reference/jak2/levels/gungame/gun-dummy_REF.gc +++ b/test/decompiler/reference/jak2/levels/gungame/gun-dummy_REF.gc @@ -1171,6 +1171,7 @@ ;; definition for function check-gungame-piece-ground ;; WARN: Return type mismatch number vs none. (defun check-gungame-piece-ground ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "Ensures the splatter that sits below the dummy when destroyed is at the right height" (if (and (>= 35635.2 (-> arg2 vector 0 y)) (>= 0.0 (-> arg1 vel-sxvel y))) (set! (-> arg2 vector 0 y) 35635.2) (set! (-> arg1 next-time) @@ -1603,7 +1604,7 @@ (num uint16 :offset-assert 4) (ref-time-num int16 :offset-assert 6) (score int16 :offset-assert 8) - (flags uint8 :offset-assert 10) + (flags tpath-info-flags :offset-assert 10) (num-anims uint8 :offset-assert 11) (bonus-time float :offset-assert 12) (list (array int32) :offset-assert 16) @@ -1671,11 +1672,11 @@ :flag-assert #x2100f00168 (:methods (idle () _type_ :state 27) - (gun-dummy-method-28 (_type_) none 28) - (gun-dummy-method-29 (_type_) symbol 29) - (gun-dummy-method-30 (_type_) float 30) - (gun-dummy-method-31 (_type_ tpath-info) none 31) - (gun-dummy-method-32 (_type_) none 32) + (init-dummy-collison! (_type_) none 28) + (path-playing? (_type_) symbol 29) + (path-time-elapsed (_type_) float 30) + (init-tpath-info! (_type_ tpath-info) none 31) + (break-dummy (_type_) none 32) ) ) @@ -2067,54 +2068,61 @@ ;; definition for method 32 of type gun-dummy ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-32 gun-dummy ((obj gun-dummy)) +(defmethod break-dummy gun-dummy ((obj gun-dummy)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" 0 (none) ) ;; definition for method 30 of type gun-dummy -(defmethod gun-dummy-method-30 gun-dummy ((obj gun-dummy)) - (let ((f0-0 0.0)) - (let ((v1-0 (the-as object (-> obj current)))) +(defmethod path-time-elapsed gun-dummy ((obj gun-dummy)) + "@returns Calculates the combined total time across all control frames in the path" + (let ((total-time 0.0)) + (let ((curr-frame (the-as tpath-control-frame (-> obj current)))) (loop - (case (-> (the-as tpath-control-frame v1-0) command) + (case (-> curr-frame command) (((tpath-control-frame-command begin)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) - (((tpath-control-frame-command tpath-control-frame-command-1)) - (+! f0-0 (-> (the-as tpath-control-frame v1-0) time)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (((tpath-control-frame-command arise)) + (+! total-time (-> curr-frame time)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) - (((tpath-control-frame-command tpath-control-frame-command-5)) - (+! f0-0 (-> (the-as tpath-control-frame v1-0) time)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (((tpath-control-frame-command lower)) + (+! total-time (-> curr-frame time)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) - (((tpath-control-frame-command tpath-control-frame-command-4)) - (+! f0-0 (-> (the-as tpath-control-frame v1-0) time)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (((tpath-control-frame-command align-with-track)) + (+! total-time (-> curr-frame time)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) - (((tpath-control-frame-command tpath-control-frame-command-2)) - (+! f0-0 (-> (the-as tpath-control-frame v1-0) time)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (((tpath-control-frame-command translate)) + (+! total-time (-> curr-frame time)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) - (((tpath-control-frame-command tpath-control-frame-command-3)) - (+! f0-0 (-> (the-as tpath-control-frame v1-0) time)) - (set! v1-0 (-> (the-as (inline-array tpath-control-frame) v1-0) 1)) + (((tpath-control-frame-command wait)) + (+! total-time (-> curr-frame time)) + (set! curr-frame (-> (the-as (inline-array tpath-control-frame) curr-frame) 1)) ) (((tpath-control-frame-command end)) - (return f0-0) + (return total-time) ) ) ) ) - f0-0 + total-time ) ) ;; definition for method 29 of type gun-dummy ;; INFO: Used lq/sq -(defmethod gun-dummy-method-29 gun-dummy ((obj gun-dummy)) - (local-vars (at-0 int) (v0-1 symbol)) +(defmethod path-playing? gun-dummy ((obj gun-dummy)) + "Core functionality for playing back the dummy's path. Does things like: +- calculates the score in case the dummy is hit based on the time elapsed +- moves around the dummy +- plays sounds accordingly +@returns if the dummy's current path is still in progress" + (local-vars (at-0 int) (ret symbol)) (with-pp (rlet ((acc :class vf) (vf0 :class vf) @@ -2126,27 +2134,27 @@ (vf7 :class vf) ) (init-vf0-vector) - (let ((s5-0 (-> obj current)) - (a1-0 (new 'stack-no-clear 'event-message-block)) + (let ((curr-path-command (-> obj current)) + (event-msg-block (new 'stack-no-clear 'event-message-block)) ) - (set! (-> a1-0 from) (process->ppointer pp)) - (set! (-> a1-0 num-params) 1) - (set! (-> a1-0 message) 'path) - (set! (-> a1-0 param 0) (-> obj path-num)) - (let ((s4-0 (the-as path-control (send-event-function (handle->process (-> obj train-man)) a1-0))) + (set! (-> event-msg-block from) (process->ppointer pp)) + (set! (-> event-msg-block num-params) 1) + (set! (-> event-msg-block message) 'path) + (set! (-> event-msg-block param 0) (-> obj path-num)) + (let ((path (the-as path-control (send-event-function (handle->process (-> obj train-man)) event-msg-block))) (f30-0 (* 0.0033333334 (the float (- (-> pp clock frame-counter) (-> obj state-time))))) ) - (if (not s4-0) + (if (not path) (return #f) ) - (case (-> s5-0 0 command) - (((tpath-control-frame-command tpath-control-frame-command-1)) - (set! (-> obj path-pos) (* 0.007843138 (the float (-> s5-0 0 path-pos)))) - (get-point-in-path! s4-0 (-> obj root-override trans) (-> obj path-pos) 'interp) - (+! (-> obj root-override trans y) (lerp-scale -16384.0 0.0 f30-0 0.0 (-> s5-0 0 time))) - (let* ((s3-0 (get-point-in-path! s4-0 (new 'stack-no-clear 'vector) (-> obj path-pos) 'interp)) + (case (-> curr-path-command 0 command) + (((tpath-control-frame-command arise)) + (set! (-> obj path-pos) (* 0.007843138 (the float (-> curr-path-command 0 path-pos)))) + (get-point-in-path! path (-> obj root-override trans) (-> obj path-pos) 'interp) + (+! (-> obj root-override trans y) (lerp-scale -16384.0 0.0 f30-0 0.0 (-> curr-path-command 0 time))) + (let* ((s3-0 (get-point-in-path! path (new 'stack-no-clear 'vector) (-> obj path-pos) 'interp)) (v1-26 (get-point-in-path! - s4-0 + path (new 'stack-no-clear 'vector) (if (< (-> obj path-pos) 0.01) (+ 0.1 (-> obj path-pos)) @@ -2169,33 +2177,33 @@ (sound-play "target-up-slow") ) (set! (-> obj first-time-command) #f) - (when (>= f30-0 (-> s5-0 0 time)) + (when (>= f30-0 (-> curr-path-command 0 time)) (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) (set! (-> obj first-time-command) #t) (set! (-> obj state-time) (-> pp clock frame-counter)) ) (return #t) - v0-1 + ret ) - (((tpath-control-frame-command tpath-control-frame-command-5)) - (get-point-in-path! s4-0 (-> obj root-override trans) (-> obj path-pos) 'interp) - (+! (-> obj root-override trans y) (lerp-scale 0.0 -16384.0 f30-0 0.0 (-> s5-0 0 time))) + (((tpath-control-frame-command lower)) + (get-point-in-path! path (-> obj root-override trans) (-> obj path-pos) 'interp) + (+! (-> obj root-override trans y) (lerp-scale 0.0 -16384.0 f30-0 0.0 (-> curr-path-command 0 time))) (if (-> obj first-time-command) (sound-play "target-dwn-slow") ) (set! (-> obj first-time-command) #f) - (when (>= f30-0 (-> s5-0 0 time)) + (when (>= f30-0 (-> curr-path-command 0 time)) (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) (set! (-> obj first-time-command) #t) (set! (-> obj state-time) (-> pp clock frame-counter)) ) (return #t) - v0-1 + ret ) - (((tpath-control-frame-command tpath-control-frame-command-4)) - (let ((s3-3 (get-point-in-path! s4-0 (new 'stack-no-clear 'vector) (-> obj path-pos) 'interp))) + (((tpath-control-frame-command align-with-track)) + (let ((s3-3 (get-point-in-path! path (new 'stack-no-clear 'vector) (-> obj path-pos) 'interp))) (let* ((v1-68 (get-point-in-path! - s4-0 + path (new 'stack-no-clear 'vector) (if (< (-> obj path-pos) 0.01) (+ 0.1 (-> obj path-pos)) @@ -2216,25 +2224,25 @@ (quaternion-normalize! (-> obj quat-ground)) (set! (-> obj root-override trans quad) (-> s3-3 quad)) ) - (set! (-> obj inout-percent) (lerp-scale 0.0 1.0 f30-0 0.0 (-> s5-0 0 time))) + (set! (-> obj inout-percent) (lerp-scale 0.0 1.0 f30-0 0.0 (-> curr-path-command 0 time))) (set! (-> obj first-time-command) #f) - (when (>= f30-0 (-> s5-0 0 time)) + (when (>= f30-0 (-> curr-path-command 0 time)) (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) (set! (-> obj inout-percent) 1.0) (set! (-> obj first-time-command) #t) (set! (-> obj state-time) (-> pp clock frame-counter)) ) (return #t) - v0-1 + ret ) - (((tpath-control-frame-command tpath-control-frame-command-2)) + (((tpath-control-frame-command translate)) (set! (-> obj score) (- (-> obj score) (* (-> obj score-speed) (-> pp clock seconds-per-frame)))) (set! (-> obj inout-percent) (fmax 0.0 (- (-> obj inout-percent) (* 4.0 (-> pp clock seconds-per-frame))))) (let ((s2-4 (new 'stack-no-clear 'vector)) (s3-4 (new 'stack-no-clear 'vector)) - (f28-2 (lerp-scale 0.0 1.0 f30-0 0.0 (-> s5-0 0 time))) + (f28-2 (lerp-scale 0.0 1.0 f30-0 0.0 (-> curr-path-command 0 time))) ) - (let ((v1-87 (-> s5-0 0 move-type))) + (let ((v1-87 (-> curr-path-command 0 move-type))) (cond ((zero? v1-87) ) @@ -2249,8 +2257,8 @@ ) ) ) - (get-point-in-path! s4-0 s2-4 (-> obj path-pos) 'interp) - (get-point-in-path! s4-0 s3-4 (* 0.007843138 (the float (-> s5-0 0 path-pos))) 'interp) + (get-point-in-path! path s2-4 (-> obj path-pos) 'interp) + (get-point-in-path! path s3-4 (* 0.007843138 (the float (-> curr-path-command 0 path-pos))) 'interp) (let ((v1-102 (new 'stack-no-clear 'vector))) (set! (-> v1-102 quad) (-> obj root-override trans quad)) (vector-float*! (-> obj root-override trans) s2-4 (- 1.0 f28-2)) @@ -2295,7 +2303,7 @@ (spawn (-> obj part) (-> obj root-override trans)) ) (set! (-> obj first-time-command) #f) - (when (>= f30-0 (-> s5-0 0 time)) + (when (>= f30-0 (-> curr-path-command 0 time)) (when (nonzero? (-> obj move-sound)) (sound-stop (-> obj move-sound)) (set! (-> obj move-sound) (new 'static 'sound-id)) @@ -2303,31 +2311,31 @@ ) (sound-play "target-stop") (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) - (set! (-> obj path-pos) (* 0.007843138 (the float (-> s5-0 0 path-pos)))) + (set! (-> obj path-pos) (* 0.007843138 (the float (-> curr-path-command 0 path-pos)))) (set! (-> obj first-time-command) #t) (set! (-> obj state-time) (-> pp clock frame-counter)) ) (return #t) - v0-1 + ret ) - (((tpath-control-frame-command tpath-control-frame-command-3)) + (((tpath-control-frame-command wait)) (set! (-> obj score) (- (-> obj score) (* (-> obj score-speed) (-> pp clock seconds-per-frame)))) (set! (-> obj inout-percent) (fmax 0.0 (- (-> obj inout-percent) (* 4.0 (-> pp clock seconds-per-frame))))) - (get-point-in-path! s4-0 (-> obj root-override trans) (-> obj path-pos) 'interp) + (get-point-in-path! path (-> obj root-override trans) (-> obj path-pos) 'interp) (set! (-> obj first-time-command) #f) - (when (or (and (= (-> s5-0 0 time) -1.0) (< (-> obj hit-points) 0)) - (and (!= (-> s5-0 0 time) -1.0) (>= f30-0 (-> s5-0 0 time))) + (when (or (and (= (-> curr-path-command 0 time) -1.0) (< (-> obj hit-points) 0)) + (and (!= (-> curr-path-command 0 time) -1.0) (>= f30-0 (-> curr-path-command 0 time))) ) (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) (set! (-> obj first-time-command) #t) (set! (-> obj state-time) (-> pp clock frame-counter)) ) (return #t) - v0-1 + ret ) (((tpath-control-frame-command end)) (return #f) - v0-1 + ret ) ) ) @@ -2340,17 +2348,17 @@ ;; INFO: Used lq/sq (defmethod get-trans gun-dummy ((obj gun-dummy) (arg0 int)) "@returns the `trans` [[vector]] from the process's `root` (typically either a [[trsqv]] or a [[collide-shape]])" - (let ((v1-0 (-> obj root-override))) + (let ((root (-> obj root-override))) (case arg0 ((3 2) - (let ((v0-0 (new 'static 'vector :w 1.0))) - (set! (-> v0-0 quad) (-> v1-0 trans quad)) - (set! (-> v0-0 y) (+ 8192.0 (-> v0-0 y))) - v0-0 + (let ((vec (new 'static 'vector :w 1.0))) + (set! (-> vec quad) (-> root trans quad)) + (set! (-> vec y) (+ 8192.0 (-> vec y))) + vec ) ) (else - (-> v1-0 trans) + (-> root trans) ) ) ) @@ -2370,33 +2378,39 @@ (('track) (cond ((-> event param 0) - (if (and (not (logtest? (-> self info flags) 4)) (> (-> self hit-points) 0)) + (if (and (not (logtest? (-> self info flags) (tpath-info-flags score-not-influenced-by-speed))) + (> (-> self hit-points) 0) + ) #t 'abort ) ) (else - (and (not (logtest? (-> self info flags) 4)) (> (-> self hit-points) 0)) + (and (not (logtest? (-> self info flags) (tpath-info-flags score-not-influenced-by-speed))) + (> (-> self hit-points) 0) + ) ) ) ) (('attack) - (let ((s5-0 (the-as attack-info (-> event param 1)))) + (let ((attack-info (the-as attack-info (-> event param 1)))) (get-penetrate-using-from-attack-event (the-as process-drawable proc) event) - (when (or (not (logtest? (-> self info flags) 64)) - (and (logtest? (-> self info flags) 64) (or (= (-> s5-0 mode) 'eco-dark) (= (-> s5-0 mode) 'explode))) + (when (or (not (logtest? (-> self info flags) (tpath-info-flags tpath-info-flags-6))) + (and (logtest? (-> self info flags) (tpath-info-flags tpath-info-flags-6)) + (or (= (-> attack-info mode) 'eco-dark) (= (-> attack-info mode) 'explode)) + ) ) - (when (!= (-> s5-0 id) (-> self incoming-attack-id)) - (set! (-> self incoming-attack-id) (-> s5-0 id)) - (let ((s5-1 (if (type? proc process-drawable) - (the-as process-drawable proc) - ) - ) + (when (!= (-> attack-info id) (-> self incoming-attack-id)) + (set! (-> self incoming-attack-id) (-> attack-info id)) + (let ((proc-draw (if (type? proc process-drawable) + (the-as process-drawable proc) + ) + ) ) - (when s5-1 - (let ((gp-1 (-> s5-1 root))) - (when (if (type? gp-1 collide-shape) - gp-1 + (when proc-draw + (let ((cshape (-> proc-draw root))) + (when (if (type? cshape collide-shape) + cshape ) (vector+float*! (-> self impact) (-> self root-override trans) *up-vector* 8192.0) (vector+! @@ -2415,7 +2429,7 @@ (set! (-> self spin-sound) (sound-play "target-spin")) ) (else - (if (and (logtest? (process-mask projectile) (-> s5-1 mask)) + (if (and (logtest? (process-mask projectile) (-> proc-draw mask)) (< (- (-> self clock frame-counter) (-> self last-combo-time)) (seconds 1)) ) (send-event (ppointer->process (-> self parent)) 'combo) @@ -2445,7 +2459,7 @@ (none) ) :exit (behavior () - (logior! (-> self info flags) 2) + (logior! (-> self info flags) (tpath-info-flags broken)) (none) ) :code (behavior () @@ -2471,14 +2485,14 @@ (none) ) :post (behavior () - (set! (-> self done? value) (not (gun-dummy-method-29 self))) + (set! (-> self done? value) (not (path-playing? self))) (when (zero? (-> self hit-points)) - (logior! (-> self info flags) 2) + (logior! (-> self info flags) (tpath-info-flags broken)) (if (>= -100.0 (-> self score)) (sound-play "score-bad") ) (send-event (handle->process (-> self train-man)) 'score (the int (-> self score))) - (gun-dummy-method-32 self) + (break-dummy self) (set! (-> self hit-points) -1) ) (+! (-> self root-override trans y) (-> self y-offset)) @@ -2492,9 +2506,9 @@ 0 ) ) - (let ((gp-2 (vector-! (new 'stack-no-clear 'vector) (target-pos 0) (-> self root-override trans)))) - (vector-normalize! gp-2 1.0) - (seek-toward-heading-vec! (-> self root-override) gp-2 65536.0 (seconds 0.5)) + (let ((vec-to-target (vector-! (new 'stack-no-clear 'vector) (target-pos 0) (-> self root-override trans)))) + (vector-normalize! vec-to-target 1.0) + (seek-toward-heading-vec! (-> self root-override) vec-to-target 65536.0 (seconds 0.5)) ) (quaternion-rotate-local-y! (-> self root-override quat) (-> self root-override quat) (-> self rot-y-offset)) (quaternion-slerp! @@ -2510,28 +2524,29 @@ ;; definition for method 28 of type gun-dummy ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-28 gun-dummy ((obj gun-dummy)) - (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) - (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) - (set! (-> s5-0 reaction) cshape-reaction-default) - (set! (-> s5-0 no-reaction) +(defmethod init-dummy-collison! gun-dummy ((obj gun-dummy)) + "Initializes the collision related stuff for the dummy" + (let ((cshape-moving (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) + (set! (-> cshape-moving dynam) (copy *standard-dynamics* 'process)) + (set! (-> cshape-moving reaction) cshape-reaction-default) + (set! (-> cshape-moving no-reaction) (the-as (function collide-shape-moving collide-query vector vector object) nothing) ) - (set! (-> s5-0 penetrated-by) (penetrate)) - (let ((v1-6 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-6 prim-core collide-as) (collide-spec crate)) - (set! (-> v1-6 prim-core action) (collide-action solid)) - (set! (-> v1-6 transform-index) 0) - (set-vector! (-> v1-6 local-sphere) 0.0 7372.8 0.0 10240.0) - (set! (-> s5-0 total-prims) (the-as uint 1)) - (set! (-> s5-0 root-prim) v1-6) + (set! (-> cshape-moving penetrated-by) (penetrate)) + (let ((prim-mesh (new 'process 'collide-shape-prim-mesh cshape-moving (the-as uint 0) (the-as uint 0)))) + (set! (-> prim-mesh prim-core collide-as) (collide-spec crate)) + (set! (-> prim-mesh prim-core action) (collide-action solid)) + (set! (-> prim-mesh transform-index) 0) + (set-vector! (-> prim-mesh local-sphere) 0.0 7372.8 0.0 10240.0) + (set! (-> cshape-moving total-prims) (the-as uint 1)) + (set! (-> cshape-moving root-prim) prim-mesh) ) - (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w))) - (let ((v1-9 (-> s5-0 root-prim))) - (set! (-> s5-0 backup-collide-as) (-> v1-9 prim-core collide-as)) - (set! (-> s5-0 backup-collide-with) (-> v1-9 prim-core collide-with)) + (set! (-> cshape-moving nav-radius) (* 0.75 (-> cshape-moving root-prim local-sphere w))) + (let ((root-prim (-> cshape-moving root-prim))) + (set! (-> cshape-moving backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape-moving backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> obj root-override) s5-0) + (set! (-> obj root-override) cshape-moving) ) 0 (none) @@ -2546,7 +2561,13 @@ ;; definition for method 11 of type gun-dummy ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! gun-dummy ((obj gun-dummy) (arg0 entity-actor)) - (gun-dummy-method-28 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-dummy-collison! obj) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) (initialize-skeleton @@ -2561,13 +2582,14 @@ ;; definition for method 31 of type gun-dummy ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-31 gun-dummy ((obj gun-dummy) (arg0 tpath-info)) +(defmethod init-tpath-info! gun-dummy ((obj gun-dummy) (arg0 tpath-info)) + "Given a [[tpath-info]] use it to initialize the dummy with any relevant data or flags" (set! (-> obj mask) (logior (process-mask enemy) (-> obj mask))) (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) (vector-identity! (-> obj root-override scale)) (quaternion-copy! (-> obj quat) (-> obj root-override quat)) (set! (-> obj root-override trans y) (+ -16384.0 (-> obj root-override trans y))) - (if (not (logtest? (-> arg0 flags) 16)) + (if (not (logtest? (-> arg0 flags) (tpath-info-flags start-on-rand-anim))) (set! *tpath-rand* (the-as uint (rand-vu-int-count 16))) ) (set! (-> obj current) @@ -2576,18 +2598,18 @@ (-> (the-as (inline-array tpath-control-frame) (-> arg0 anims (mod *tpath-rand* (-> arg0 num-anims)))) 0) ) ) - (let ((v1-19 (-> obj current))) - (when (= (-> v1-19 0 command) (tpath-control-frame-command begin)) - (set! (-> obj path-num) (-> v1-19 0 path-num)) + (let ((path (-> obj current))) + (when (= (-> path 0 command) (tpath-control-frame-command begin)) + (set! (-> obj path-num) (-> path 0 path-num)) (set! (-> obj current) (the-as (inline-array tpath-control-frame) (-> obj current 1))) ) ) (set! (-> obj score) (the float (-> arg0 score))) - (if (logtest? (-> arg0 flags) 4) + (if (logtest? (-> arg0 flags) (tpath-info-flags score-not-influenced-by-speed)) (set! (-> obj score-speed) 0.0) - (set! (-> obj score-speed) (/ (-> obj score) (gun-dummy-method-30 obj))) + (set! (-> obj score-speed) (/ (-> obj score) (path-time-elapsed obj))) ) - (set! (-> obj hit-points) (if (logtest? (-> arg0 flags) 32) + (set! (-> obj hit-points) (if (logtest? (-> arg0 flags) (tpath-info-flags double-hitpoints)) 2 1 ) @@ -2822,19 +2844,20 @@ ;; definition for method 32 of type gun-dummy-a ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-32 gun-dummy-a ((obj gun-dummy-a)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-a ((obj gun-dummy-a)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) - (set! (-> s5-1 fountain-rand-transv-hi x) 4096.0) - (set! (-> s5-1 fountain-rand-transv-hi y) 122880.0) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) + (set! (-> exploder-tuning fountain-rand-transv-hi x) 4096.0) + (set! (-> exploder-tuning fountain-rand-transv-hi y) 122880.0) (process-spawn part-tracker :init part-tracker-init @@ -2850,7 +2873,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-a-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-a-exploder-params* :to obj ) @@ -2862,17 +2885,18 @@ ;; definition for method 32 of type gun-dummy-b ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-32 gun-dummy-b ((obj gun-dummy-b)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-b ((obj gun-dummy-b)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) (process-spawn part-tracker :init part-tracker-init @@ -2888,7 +2912,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-b-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-b-exploder-params* :to obj ) @@ -2900,17 +2924,18 @@ ;; definition for method 32 of type gun-dummy-c ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-32 gun-dummy-c ((obj gun-dummy-c)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-c ((obj gun-dummy-c)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) (process-spawn part-tracker :init part-tracker-init @@ -2926,7 +2951,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-c-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-c-exploder-params* :to obj ) @@ -2938,17 +2963,18 @@ ;; definition for method 32 of type gun-dummy-big ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-32 gun-dummy-big ((obj gun-dummy-big)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-big ((obj gun-dummy-big)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) (process-spawn part-tracker :init part-tracker-init @@ -2964,7 +2990,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-big-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-big-exploder-params* :to obj ) @@ -2976,17 +3002,18 @@ ;; definition for method 32 of type gun-dummy-gold ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-32 gun-dummy-gold ((obj gun-dummy-gold)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-gold ((obj gun-dummy-gold)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-bonus") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) (process-spawn part-tracker :init part-tracker-init @@ -3002,7 +3029,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-gold-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-gold-exploder-params* :to obj ) @@ -3014,17 +3041,18 @@ ;; definition for method 32 of type gun-dummy-peace ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-32 gun-dummy-peace ((obj gun-dummy-peace)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-dummy-peace ((obj gun-dummy-peace)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) (process-spawn part-tracker :init part-tracker-init @@ -3040,7 +3068,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-dummy-gold-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-dummy-peace-exploder-params* :to obj ) @@ -3052,19 +3080,20 @@ ;; definition for method 32 of type gun-cit-a ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-32 gun-cit-a ((obj gun-cit-a)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-cit-a ((obj gun-cit-a)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) - (set! (-> s5-1 fountain-rand-transv-hi x) 4096.0) - (set! (-> s5-1 fountain-rand-transv-hi y) 122880.0) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) + (set! (-> exploder-tuning fountain-rand-transv-hi x) 4096.0) + (set! (-> exploder-tuning fountain-rand-transv-hi y) 122880.0) (process-spawn part-tracker :init part-tracker-init @@ -3080,7 +3109,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-cit-a-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-cit-a-exploder-params* :to obj ) @@ -3092,19 +3121,20 @@ ;; definition for method 32 of type gun-cit-b ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-32 gun-cit-b ((obj gun-cit-b)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-cit-b ((obj gun-cit-b)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) - (set! (-> s5-1 fountain-rand-transv-hi x) 4096.0) - (set! (-> s5-1 fountain-rand-transv-hi y) 122880.0) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) + (set! (-> exploder-tuning fountain-rand-transv-hi x) 4096.0) + (set! (-> exploder-tuning fountain-rand-transv-hi y) 122880.0) (process-spawn part-tracker :init part-tracker-init @@ -3120,7 +3150,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-cit-b-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-cit-b-exploder-params* :to obj ) @@ -3132,19 +3162,20 @@ ;; definition for method 32 of type gun-cit-c ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-32 gun-cit-c ((obj gun-cit-c)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-cit-c ((obj gun-cit-c)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) - (set! (-> s5-1 fountain-rand-transv-hi x) 4096.0) - (set! (-> s5-1 fountain-rand-transv-hi y) 122880.0) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) + (set! (-> exploder-tuning fountain-rand-transv-hi x) 4096.0) + (set! (-> exploder-tuning fountain-rand-transv-hi y) 122880.0) (process-spawn part-tracker :init part-tracker-init @@ -3160,7 +3191,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-cit-c-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-cit-c-exploder-params* :to obj ) @@ -3172,19 +3203,20 @@ ;; definition for method 32 of type gun-cit-d ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defmethod gun-dummy-method-32 gun-cit-d ((obj gun-cit-d)) - (let ((v1-1 (-> obj root-override root-prim))) - (set! (-> v1-1 prim-core collide-as) (collide-spec)) - (set! (-> v1-1 prim-core collide-with) (collide-spec)) +(defmethod break-dummy gun-cit-d ((obj gun-cit-d)) + "Does what you'd expect, sets up the [[joint-exploder-tuning]] to break the dummy into pieces, plays sounds, etc" + (let ((root-prim (-> obj root-override root-prim))) + (set! (-> root-prim prim-core collide-as) (collide-spec)) + (set! (-> root-prim prim-core collide-with) (collide-spec)) ) 0 (setup-masks (-> obj draw) 0 -1) (setup-masks (-> obj draw) 1 0) (sound-play "target-break") - (let ((s5-1 (new 'stack 'joint-exploder-tuning (the-as uint 1)))) - (set! (-> s5-1 fountain-rand-transv-lo quad) (-> obj impact quad)) - (set! (-> s5-1 fountain-rand-transv-hi x) 4096.0) - (set! (-> s5-1 fountain-rand-transv-hi y) 122880.0) + (let ((exploder-tuning (new 'stack 'joint-exploder-tuning (the-as uint 1)))) + (set! (-> exploder-tuning fountain-rand-transv-lo quad) (-> obj impact quad)) + (set! (-> exploder-tuning fountain-rand-transv-hi x) 4096.0) + (set! (-> exploder-tuning fountain-rand-transv-hi y) 122880.0) (process-spawn part-tracker :init part-tracker-init @@ -3200,7 +3232,7 @@ joint-exploder (art-group-get-by-name *level* "skel-gun-cit-d-explode" (the-as (pointer uint32) #f)) 5 - s5-1 + exploder-tuning *gun-cit-d-exploder-params* :to obj ) @@ -3211,15 +3243,16 @@ ;; definition for function gun-dummy-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3229,15 +3262,16 @@ ;; definition for function gun-dummy-a-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-a-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-a-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-a]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-a" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3249,15 +3283,16 @@ ;; definition for function gun-dummy-b-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-b-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-b-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-b]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-b" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3269,15 +3304,16 @@ ;; definition for function gun-dummy-c-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-c-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-c-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-c]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-c" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3289,15 +3325,16 @@ ;; definition for function gun-dummy-big-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-big-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-big-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-big]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-big" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3309,15 +3346,16 @@ ;; definition for function gun-dummy-gold-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-gold-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-gold-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-gold]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-gold" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3329,15 +3367,16 @@ ;; definition for function gun-dummy-peace-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior gun-dummy-peace-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-dummy-peace-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-dummy-peace]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-dummy-peace" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3349,15 +3388,16 @@ ;; definition for function gun-cit-a-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior gun-cit-a-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-cit-a-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-cit-a]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-cit-a" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3369,15 +3409,16 @@ ;; definition for function gun-cit-b-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior gun-cit-b-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-cit-b-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-cit-b]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-cit-b" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3389,15 +3430,16 @@ ;; definition for function gun-cit-c-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior gun-cit-c-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-cit-c-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-cit-c]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-cit-c" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) @@ -3409,15 +3451,16 @@ ;; definition for function gun-cit-d-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior gun-cit-d-init-by-other gun-dummy ((arg0 training-manager) (arg1 tpath-info)) - (gun-dummy-method-28 self) +(defbehavior gun-cit-d-init-by-other gun-dummy ((manager training-manager) (path-info tpath-info)) + "Initializes a [[gun-cit-d]] given a [[tpath-info]]" + (init-dummy-collison! self) (initialize-skeleton self (the-as skeleton-group (art-group-get-by-name *level* "skel-gun-cit-d" (the-as (pointer uint32) #f))) (the-as pair 0) ) - (set! (-> self train-man) (process->handle arg0)) - (gun-dummy-method-31 self arg1) + (set! (-> self train-man) (process->handle manager)) + (init-tpath-info! self path-info) (set! (-> self move-sound) (new 'static 'sound-id)) (set! (-> self turn-sound) (new 'static 'sound-id)) (set! (-> self spin-sound) (new 'static 'sound-id)) diff --git a/test/decompiler/reference/jak2/levels/gungame/gungame-data_REF.gc b/test/decompiler/reference/jak2/levels/gungame/gungame-data_REF.gc index b3e1e02c17..37a26bd9e9 100644 --- a/test/decompiler/reference/jak2/levels/gungame/gungame-data_REF.gc +++ b/test/decompiler/reference/jak2/levels/gungame/gungame-data_REF.gc @@ -3,13 +3,16 @@ ;; definition of type gungame-crate (deftype gungame-crate (structure) - ((pos vector :inline :offset-assert 0) - (pos-x float :offset 0) - (pos-y float :offset 4) - (pos-z float :offset 8) - (angle float :offset 12) - (ammo int32 :offset-assert 16) - (num uint32 :offset-assert 20) + "Describes the contents and position of the crates in the gungame +`num` is the amount of TOTAL ammo to spawn (not pickups) +For example `20` would mean 4 red gun pickups, or 2 yellow gun pickups" + ((pos vector :inline :offset-assert 0) + (pos-x float :offset 0) + (pos-y float :offset 4) + (pos-z float :offset 8) + (angle float :offset 12) + (ammo pickup-type :offset-assert 16) + (num uint32 :offset-assert 20) ) :method-count-assert 9 :size-assert #x18 @@ -35,159 +38,394 @@ ) ;; definition for symbol *entrance-gungame-crates-pos*, type (array gungame-crate) -(define *entrance-gungame-crates-pos* - (new 'static 'boxed-array :type gungame-crate - (new 'static 'gungame-crate :pos (new 'static 'vector :x 303104.0 :z 129024.0 :w -16384.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 303104.0 :z 141312.0 :w -16384.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 303104.0 :z 153600.0 :w -16384.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 303104.0 :z 165888.0 :w -16384.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 303104.0 :z 178176.0 :w -16384.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 245760.0 :z 120832.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 258048.0 :z 120832.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 270336.0 :z 120832.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 282624.0 :z 120832.0) :ammo 33 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 294912.0 :z 120832.0) :ammo 33 :num #x14) - ) - ) +(define *entrance-gungame-crates-pos* (new 'static 'boxed-array :type gungame-crate + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 303104.0 :z 129024.0 :w -16384.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 303104.0 :z 141312.0 :w -16384.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 303104.0 :z 153600.0 :w -16384.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 303104.0 :z 165888.0 :w -16384.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 303104.0 :z 178176.0 :w -16384.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 245760.0 :z 120832.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 258048.0 :z 120832.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 270336.0 :z 120832.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 282624.0 :z 120832.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 294912.0 :z 120832.0) + :ammo (pickup-type ammo-random) + :num #x14 + ) + ) + ) ;; definition for symbol *gungame-red-crates-pos*, type (array gungame-crate) -(define *gungame-red-crates-pos* - (new 'static 'boxed-array :type gungame-crate - (new 'static 'gungame-crate :pos (new 'static 'vector :x 184320.0 :z 81920.0 :w -16384.0) :ammo 14 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 196608.0 :z 81920.0 :w 7281.778) :ammo 14 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 192512.0 :z 73728.0 :w 14563.556) :ammo 14 :num #x14) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -92160.0 :z -126976.0 :w -16384.0) - :ammo 14 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -92160.0 :z -114688.0 :w -16384.0) - :ammo 14 - :num #x14 - ) - ) - ) +(define *gungame-red-crates-pos* (new 'static 'boxed-array :type gungame-crate + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 184320.0 :z 81920.0 :w -16384.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 196608.0 :z 81920.0 :w 7281.778) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 192512.0 :z 73728.0 :w 14563.556) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -92160.0 :z -126976.0 :w -16384.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -92160.0 :z -114688.0 :w -16384.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + ) + ) ;; definition for symbol *gungame-yellow-crates-pos*, type (array gungame-crate) -(define *gungame-yellow-crates-pos* - (new 'static 'boxed-array :type gungame-crate - (new 'static 'gungame-crate - :pos (new 'static 'vector :x 131072.0 :z 172032.0 :w -20024.889) - :ammo 13 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x 120832.0 :z 163840.0 :w -23665.777) - :ammo 13 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x 131072.0 :z 155648.0 :w -25486.223) - :ammo 13 - :num #x14 - ) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 169574.4 :z -149094.4) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 182272.0 :z -149094.4) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 18841.6 :z -99942.4 :w 16384.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -142131.2 :z -76595.2 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -154419.2 :z -76595.2 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -166707.2 :z -76595.2 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -178995.2 :z -76595.2 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -147046.4 :z 132300.8 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -134758.4 :z 132300.8 :w 32768.0) :ammo 13 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -122470.4 :z 132300.8 :w 32768.0) :ammo 13 :num #x14) - ) - ) +(define *gungame-yellow-crates-pos* (new 'static 'boxed-array :type gungame-crate + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 131072.0 :z 172032.0 :w -20024.889) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 120832.0 :z 163840.0 :w -23665.777) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 131072.0 :z 155648.0 :w -25486.223) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 169574.4 :z -149094.4) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 182272.0 :z -149094.4) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 18841.6 :z -99942.4 :w 16384.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -142131.2 :z -76595.2 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -154419.2 :z -76595.2 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -166707.2 :z -76595.2 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -178995.2 :z -76595.2 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -147046.4 :z 132300.8 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -134758.4 :z 132300.8 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -122470.4 :z 132300.8 :w 32768.0) + :ammo (pickup-type ammo-yellow) + :num #x14 + ) + ) + ) ;; definition for symbol *gungame-blue-crates-pos*, type (array gungame-crate) -(define *gungame-blue-crates-pos* - (new 'static 'boxed-array :type gungame-crate - (new 'static 'gungame-crate :pos (new 'static 'vector :x 73728.0 :z 163840.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 73728.0 :z 151552.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 73728.0 :z 139264.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 73728.0 :z 126976.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -71680.0 :z 163840.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -71680.0 :z 151552.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -71680.0 :z 139264.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -71680.0 :z 126976.0 :w 16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -131072.0 :z 102400.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -118784.0 :z 102400.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -180224.0 :z 36864.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -126976.0 :z 36864.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -172032.0 :z -24576.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -159744.0 :z -24576.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -98304.0 :z -147456.0 :w -16384.0) - :ammo 15 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -98304.0 :z -135168.0 :w -16384.0) - :ammo 15 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -98304.0 :z -122880.0 :w -16384.0) - :ammo 15 - :num #x14 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -98304.0 :z -110592.0 :w -16384.0) - :ammo 15 - :num #x14 - ) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 12288.0 :z -131072.0 :w -16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 12288.0 :z -118784.0 :w -16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 12288.0 :z -106496.0 :w -16384.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 176128.0 :z -147456.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 188416.0 :z -147456.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 200704.0 :z -147456.0) :ammo 15 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 212992.0 :z -147456.0) :ammo 15 :num #x14) - ) - ) +(define *gungame-blue-crates-pos* (new 'static 'boxed-array :type gungame-crate + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 73728.0 :z 163840.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 73728.0 :z 151552.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 73728.0 :z 139264.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 73728.0 :z 126976.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -71680.0 :z 163840.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -71680.0 :z 151552.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -71680.0 :z 139264.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -71680.0 :z 126976.0 :w 16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -131072.0 :z 102400.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -118784.0 :z 102400.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -180224.0 :z 36864.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -126976.0 :z 36864.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -172032.0 :z -24576.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -159744.0 :z -24576.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -98304.0 :z -147456.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -98304.0 :z -135168.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -98304.0 :z -122880.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -98304.0 :z -110592.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 12288.0 :z -131072.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 12288.0 :z -118784.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 12288.0 :z -106496.0 :w -16384.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 176128.0 :z -147456.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 188416.0 :z -147456.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 200704.0 :z -147456.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 212992.0 :z -147456.0) + :ammo (pickup-type ammo-blue) + :num #x14 + ) + ) + ) ;; definition for symbol *gungame-peace-crates-pos*, type (array gungame-crate) -(define *gungame-peace-crates-pos* - (new 'static 'boxed-array :type gungame-crate - (new 'static 'gungame-crate :pos (new 'static 'vector :x 196608.0 :z 77824.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 208896.0 :z 77824.0) :ammo 13 :num #x28) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 221184.0 :z 77824.0) :ammo 14 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 233472.0 :z 77824.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 172032.0 :z -147456.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 184320.0 :z -147456.0) :ammo 13 :num #x28) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 196608.0 :z -147456.0) :ammo 14 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x 208896.0 :z -147456.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -90112.0 :z -102400.0 :w 16384.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -90112.0 :z -114688.0 :w 16384.0) :ammo 13 :num #x28) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -90112.0 :z -126976.0 :w 16384.0) :ammo 14 :num #x14) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -90112.0 :z -139264.0 :w 16384.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -135168.0 :z -28672.0 :w -32768.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -147456.0 :z -28672.0 :w -32768.0) - :ammo 13 - :num #x28 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -159744.0 :z -28672.0 :w -32768.0) - :ammo 14 - :num #x14 - ) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -172032.0 :z -28672.0 :w -32768.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -135168.0 :z 133120.0 :w -32768.0) :ammo 16 :num #x5) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -147456.0 :z 133120.0 :w -32768.0) - :ammo 13 - :num #x28 - ) - (new 'static 'gungame-crate - :pos (new 'static 'vector :x -159744.0 :z 133120.0 :w -32768.0) - :ammo 14 - :num #x14 - ) - (new 'static 'gungame-crate :pos (new 'static 'vector :x -172032.0 :z 133120.0 :w -32768.0) :ammo 16 :num #x5) - ) - ) +(define *gungame-peace-crates-pos* (new 'static 'boxed-array :type gungame-crate + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 196608.0 :z 77824.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 208896.0 :z 77824.0) + :ammo (pickup-type ammo-yellow) + :num #x28 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 221184.0 :z 77824.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 233472.0 :z 77824.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 172032.0 :z -147456.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 184320.0 :z -147456.0) + :ammo (pickup-type ammo-yellow) + :num #x28 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 196608.0 :z -147456.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x 208896.0 :z -147456.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -90112.0 :z -102400.0 :w 16384.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -90112.0 :z -114688.0 :w 16384.0) + :ammo (pickup-type ammo-yellow) + :num #x28 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -90112.0 :z -126976.0 :w 16384.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -90112.0 :z -139264.0 :w 16384.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -135168.0 :z -28672.0 :w -32768.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -147456.0 :z -28672.0 :w -32768.0) + :ammo (pickup-type ammo-yellow) + :num #x28 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -159744.0 :z -28672.0 :w -32768.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -172032.0 :z -28672.0 :w -32768.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -135168.0 :z 133120.0 :w -32768.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -147456.0 :z 133120.0 :w -32768.0) + :ammo (pickup-type ammo-yellow) + :num #x28 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -159744.0 :z 133120.0 :w -32768.0) + :ammo (pickup-type ammo-red) + :num #x14 + ) + (new 'static 'gungame-crate + :pos (new 'static 'vector :x -172032.0 :z 133120.0 :w -32768.0) + :ammo (pickup-type ammo-dark) + :num #x5 + ) + ) + ) ;; definition for symbol *red-training-path-global-info*, type (array tpath-info) (define *red-training-path-global-info* @@ -197,51 +435,25 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) (new 'static 'tpath-info :num #x5 :score 100 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 0) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -251,44 +463,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -299,44 +485,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -344,28 +504,15 @@ :num #x19 :ref-time-num 20 :score 100 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 20) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -374,26 +521,13 @@ :num #x1e :ref-time-num 20 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -402,65 +536,25 @@ :num #x28 :ref-time-num 30 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -469,65 +563,25 @@ :num #x32 :ref-time-num 40 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -536,65 +590,25 @@ :num #x37 :ref-time-num 40 :score #x1f4 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -603,47 +617,21 @@ :num #x3c :ref-time-num 50 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -651,49 +639,23 @@ :num #x41 :ref-time-num 60 :score 100 - :flags #x18 + :flags (tpath-info-flags tpath-info-flags-3 start-on-rand-anim) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 60) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -702,47 +664,21 @@ :num #x46 :ref-time-num 60 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -751,36 +687,15 @@ :num #x50 :ref-time-num 70 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -789,34 +704,15 @@ :num #x5a :ref-time-num 70 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -827,31 +723,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x17) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -861,31 +738,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x16) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -893,29 +751,15 @@ :num #x73 :ref-time-num 100 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 100) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -924,34 +768,15 @@ :num #x78 :ref-time-num #x6e :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x15) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -961,31 +786,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -996,27 +802,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1024,30 +814,14 @@ :num #xa0 :ref-time-num #x96 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1058,43 +832,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1103,26 +852,13 @@ :num #xb4 :ref-time-num #xaa :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1131,46 +867,21 @@ :num #xbe :ref-time-num #xb4 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1179,48 +890,21 @@ :num #xc8 :ref-time-num #xbe :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1228,48 +912,21 @@ :num #xd2 :ref-time-num #xc8 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1280,23 +937,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1304,29 +948,15 @@ :num #xe1 :ref-time-num #xdc :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #xdc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xc) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1335,26 +965,13 @@ :num #xe6 :ref-time-num #xdc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1363,26 +980,13 @@ :num #xf0 :ref-time-num #xe6 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1393,23 +997,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xc) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1419,23 +1010,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xd) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1446,23 +1024,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1472,23 +1037,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1497,26 +1049,13 @@ :num #x122 :ref-time-num #x118 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1527,23 +1066,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1554,23 +1080,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1581,23 +1094,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1606,26 +1106,13 @@ :num #x14a :ref-time-num #x140 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1634,26 +1121,13 @@ :num #x154 :ref-time-num #x14a :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1664,23 +1138,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1688,28 +1149,15 @@ :num #x163 :ref-time-num #x15e :score 100 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x15e) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1720,23 +1168,10 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1747,23 +1182,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.9 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.9 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1772,27 +1194,13 @@ :num #x19a :ref-time-num #x190 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.3 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.3 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1803,23 +1211,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1829,24 +1224,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1855,26 +1236,13 @@ :num #x1b8 :ref-time-num #x1ae :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1884,24 +1252,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1912,23 +1266,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1936,27 +1277,13 @@ :num #x1d6 :ref-time-num #x1cc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1967,23 +1294,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1993,24 +1307,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2019,26 +1319,13 @@ :num #x1f4 :ref-time-num #x1ea :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2048,24 +1335,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2076,23 +1349,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2102,24 +1362,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2128,26 +1374,13 @@ :num #x21c :ref-time-num #x212 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2157,24 +1390,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2185,23 +1404,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2210,28 +1416,15 @@ :num #x235 :ref-time-num #x230 :score 100 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x230) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2239,27 +1432,13 @@ :num #x23a :ref-time-num #x230 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2268,35 +1447,15 @@ :num #x244 :ref-time-num #x23a :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2304,29 +1463,15 @@ :num #x249 :ref-time-num #x244 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x244) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2337,32 +1482,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2372,32 +1497,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2408,31 +1513,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2443,31 +1529,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2476,98 +1543,35 @@ :num #x262 :ref-time-num #x258 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xb2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xb2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2578,33 +1582,12 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2612,28 +1595,15 @@ :num #x269 :ref-time-num #x267 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x267) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2641,28 +1611,15 @@ :num #x26a :ref-time-num #x269 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x269) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2671,98 +1628,35 @@ :num #x26c :ref-time-num #x262 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xb2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xb2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2771,98 +1665,35 @@ :num #x276 :ref-time-num #x26c :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xb2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xb2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2873,64 +1704,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3f) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x41) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -2939,67 +1728,25 @@ :num #x27d :ref-time-num #x276 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x41) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3f) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3010,32 +1757,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x40) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3044,34 +1771,15 @@ :num #x28a :ref-time-num #x280 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3081,31 +1789,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3113,35 +1802,15 @@ :num #x29e :ref-time-num #x294 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3152,62 +1821,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3216,65 +1845,25 @@ :num #x2a2 :ref-time-num #x2a0 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3283,65 +1872,25 @@ :num #x2a4 :ref-time-num #x2a2 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3350,65 +1899,25 @@ :num #x2a6 :ref-time-num #x2a2 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3416,48 +1925,23 @@ :num #x2a7 :ref-time-num #x2a6 :score 100 - :flags #x18 + :flags (tpath-info-flags tpath-info-flags-3 start-on-rand-anim) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2a6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3466,64 +1950,25 @@ :num #x2a8 :ref-time-num #x2a7 :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3532,30 +1977,14 @@ :num #x2bc :ref-time-num #x2a8 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3566,27 +1995,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3595,30 +2008,14 @@ :num #x2c0 :ref-time-num #x2bc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3627,30 +2024,14 @@ :num #x2c2 :ref-time-num #x2bc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3661,27 +2042,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3689,32 +2054,16 @@ :num #x2c5 :ref-time-num #x2c4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 0.7 :list (new 'static 'boxed-array :type int32 #x2c4) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3725,32 +2074,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3759,35 +2088,15 @@ :num #x2d0 :ref-time-num #x2c6 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3795,35 +2104,15 @@ :num #x2da :ref-time-num #x2d0 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3832,36 +2121,17 @@ :num #x2dd :ref-time-num #x2c6 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x2c6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3872,62 +2142,22 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x38) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3938,23 +2168,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -3962,38 +2179,17 @@ :num #x2e9 :ref-time-num #x2e4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2e4) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4004,23 +2200,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4030,23 +2213,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4054,51 +2224,23 @@ :num #x2fd :ref-time-num #x2f8 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2f8) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4109,23 +2251,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4136,23 +2265,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4163,23 +2279,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4190,23 +2293,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4217,23 +2307,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4244,23 +2321,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4271,23 +2335,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4298,23 +2349,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4325,23 +2363,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4352,23 +2377,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4379,23 +2391,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4406,44 +2405,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4454,44 +2427,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4499,49 +2446,23 @@ :num #x37f :ref-time-num #x37a :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x37a) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4552,44 +2473,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4600,44 +2495,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4645,49 +2514,23 @@ :num #x393 :ref-time-num #x38e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 4.5 :list (new 'static 'boxed-array :type int32 #x38e) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4696,47 +2539,21 @@ :num #x398 :ref-time-num #x370 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4747,44 +2564,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4793,47 +2584,21 @@ :num #x3ac :ref-time-num #x370 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4842,47 +2607,21 @@ :num #x3b6 :ref-time-num #x370 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4893,44 +2632,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4941,44 +2654,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -4989,46 +2676,18 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5036,51 +2695,23 @@ :num #x3d7 :ref-time-num #x3d4 :score #x1f4 - :flags #x18 + :flags (tpath-info-flags tpath-info-flags-3 start-on-rand-anim) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x3d4) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5089,47 +2720,21 @@ :num #x3d9 :ref-time-num #x370 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5140,44 +2745,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5188,44 +2767,18 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5234,47 +2787,21 @@ :num #x3ea :ref-time-num #x3e8 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5283,47 +2810,21 @@ :num #x3ec :ref-time-num #x3ea :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5332,49 +2833,21 @@ :num #x3ee :ref-time-num #x3ec :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5385,45 +2858,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5434,45 +2880,18 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5481,51 +2900,23 @@ :num #x401 :ref-time-num #x3f2 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3f2) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5533,51 +2924,23 @@ :num #x406 :ref-time-num #x3fc :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 0.8 :list (new 'static 'boxed-array :type int32 #x3fc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5592,44 +2955,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5637,47 +2974,21 @@ :s-time 1.0 :num #xa :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5686,47 +2997,21 @@ :num #x14 :ref-time-num 10 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5734,32 +3019,16 @@ :num #x19 :ref-time-num 20 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 0.5 :list (new 'static 'boxed-array :type int32 20) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5768,47 +3037,21 @@ :num #x1e :ref-time-num 20 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5816,28 +3059,15 @@ :num #x20 :ref-time-num 30 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 0.5 :list (new 'static 'boxed-array :type int32 30) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5846,47 +3076,21 @@ :num #x23 :ref-time-num 30 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5895,47 +3099,21 @@ :num #x25 :ref-time-num 35 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5946,44 +3124,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -5992,47 +3144,21 @@ :num #x32 :ref-time-num 40 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6043,44 +3169,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x1f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x5f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6088,32 +3188,16 @@ :num #x41 :ref-time-num 60 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 60) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6122,47 +3206,21 @@ :num #x46 :ref-time-num 60 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x5f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x1f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6173,31 +3231,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6205,36 +3244,17 @@ :num #x55 :ref-time-num 80 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 80) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6244,31 +3264,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6276,36 +3277,17 @@ :num #x5f :ref-time-num 90 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 90) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6316,44 +3298,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6361,47 +3317,21 @@ :num #x6e :ref-time-num 100 :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6412,27 +3342,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6443,27 +3357,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6474,27 +3372,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6505,27 +3387,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6536,27 +3402,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6567,27 +3417,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6595,27 +3429,15 @@ :num #x88 :ref-time-num #x87 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x87) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6626,27 +3448,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.9 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.9 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6657,27 +3463,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.9 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.9 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6688,31 +3478,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x38) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6720,36 +3491,17 @@ :num #x91 :ref-time-num #x8c :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x8c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x39) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6760,32 +3512,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6793,38 +3525,17 @@ :num #x95 :ref-time-num #x93 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x93) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x30) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6835,31 +3546,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6867,36 +3559,17 @@ :num #x9b :ref-time-num #x96 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x96) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6907,32 +3580,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6942,31 +3595,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -6974,32 +3608,16 @@ :num #xaf :ref-time-num #xaa :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #xaa) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x3b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7010,32 +3628,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7043,38 +3641,17 @@ :num #xb9 :ref-time-num #xb4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #xb4) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x43) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7084,31 +3661,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7116,37 +3674,17 @@ :num #xc3 :ref-time-num #xbe :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #xbe) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7157,32 +3695,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x40) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7191,65 +3709,25 @@ :num #xcc :ref-time-num #xc3 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7258,65 +3736,25 @@ :num #xce :ref-time-num #xcc :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7326,31 +3764,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7361,32 +3780,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7397,31 +3796,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7432,31 +3812,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7464,35 +3825,15 @@ :num #xdf :ref-time-num #xde :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #xbf - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #xbf :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7501,35 +3842,15 @@ :num #xe0 :ref-time-num #xdf :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #xa5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #xa5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7537,37 +3858,17 @@ :num #xe1 :ref-time-num #xe0 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 #xe0) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x40) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7578,31 +3879,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7611,35 +3893,15 @@ :num #xe8 :ref-time-num #xe7 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7650,32 +3912,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7686,32 +3928,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7720,35 +3942,15 @@ :num #xeb :ref-time-num #xea :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7759,32 +3961,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7792,38 +3974,17 @@ :num #xee :ref-time-num #xec :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #xec) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xbf - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xbf :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7834,27 +3995,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7863,35 +4008,15 @@ :num #xfa :ref-time-num #xf0 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #xbf - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #xbf :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7900,35 +4025,15 @@ :num #x104 :ref-time-num #xfa :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7937,35 +4042,15 @@ :num #x10e :ref-time-num #x104 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -7973,37 +4058,17 @@ :num #x113 :ref-time-num #x10e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x10e) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8012,35 +4077,15 @@ :num #x118 :ref-time-num #x113 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.8 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8049,35 +4094,15 @@ :num #x122 :ref-time-num #x118 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8088,32 +4113,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8121,36 +4126,17 @@ :num #x131 :ref-time-num #x12c :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x12c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8158,36 +4144,17 @@ :num #x132 :ref-time-num #x131 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x131) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8195,36 +4162,17 @@ :num #x133 :ref-time-num #x132 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x132) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8235,31 +4183,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8267,34 +4196,15 @@ :num #x140 :ref-time-num #x136 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8302,38 +4212,17 @@ :num #x145 :ref-time-num #x140 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x140) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8342,26 +4231,13 @@ :num #x14a :ref-time-num #x140 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8372,23 +4248,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8399,44 +4262,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8447,23 +4284,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8474,23 +4298,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8501,74 +4312,21 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 17 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8576,70 +4334,24 @@ :num #x163 :ref-time-num #x162 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x162) :anim1 (new 'static 'inline-array tpath-control-frame 15 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8650,73 +4362,21 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 17 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8727,73 +4387,21 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 17 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8802,81 +4410,25 @@ :num #x166 :ref-time-num #x165 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 18 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8885,47 +4437,21 @@ :num #x167 :ref-time-num #x166 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -8936,61 +4462,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 14 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9000,60 +4483,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 14 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9061,70 +4502,24 @@ :num #x16a :ref-time-num #x169 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x169) :anim1 (new 'static 'inline-array tpath-control-frame 15 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9135,23 +4530,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9160,26 +4542,13 @@ :num #x16c :ref-time-num #x16b :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9190,44 +4559,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9238,44 +4581,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9286,23 +4603,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9311,26 +4615,13 @@ :num #x177 :ref-time-num #x172 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9341,23 +4632,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9366,47 +4644,21 @@ :num #x17e :ref-time-num #x17c :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9415,47 +4667,21 @@ :num #x17f :ref-time-num #x17e :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9464,47 +4690,21 @@ :num #x180 :ref-time-num #x17f :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9513,26 +4713,13 @@ :num #x181 :ref-time-num #x180 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9543,23 +4730,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9568,26 +4742,13 @@ :num #x18b :ref-time-num #x186 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9596,26 +4757,13 @@ :num #x190 :ref-time-num #x18b :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9626,23 +4774,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9651,26 +4786,13 @@ :num #x19a :ref-time-num #x195 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9681,23 +4803,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9708,23 +4817,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9733,26 +4829,13 @@ :num #x1a9 :ref-time-num #x1a4 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9763,23 +4846,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9788,47 +4858,21 @@ :num #x1af :ref-time-num #x1ae :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9837,47 +4881,21 @@ :num #x1b0 :ref-time-num #x1af :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9886,47 +4904,21 @@ :num #x1b1 :ref-time-num #x1b0 :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9937,44 +4929,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -9982,49 +4948,23 @@ :num #x1b3 :ref-time-num #x1b2 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x1b2) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10035,23 +4975,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10060,26 +4987,13 @@ :num #x1b8 :ref-time-num #x1b4 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10088,26 +5002,13 @@ :num #x1bd :ref-time-num #x1b8 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10118,23 +5019,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10145,23 +5033,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10170,26 +5045,13 @@ :num #x1ca :ref-time-num #x1c7 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10200,23 +5062,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10225,26 +5074,13 @@ :num #x1cf :ref-time-num #x1cc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10255,23 +5091,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10279,49 +5102,23 @@ :num #x1d3 :ref-time-num #x1d2 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.7 :list (new 'static 'boxed-array :type int32 #x1d2) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10332,60 +5129,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x16) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10396,60 +5155,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x13) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x15) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10458,47 +5179,21 @@ :num #x1e5 :ref-time-num #x1e0 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10509,31 +5204,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x17) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10544,60 +5220,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x16) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10605,49 +5243,23 @@ :num #x1f9 :ref-time-num #x1f4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x1f4) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10658,60 +5270,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x13) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x15) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10719,58 +5293,25 @@ :num #x203 :ref-time-num #x1fe :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x1fe) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10779,56 +5320,23 @@ :num #x206 :ref-time-num #x1fe :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10838,31 +5346,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x17) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10873,31 +5362,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10908,31 +5378,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x13) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10940,28 +5391,15 @@ :num #x226 :ref-time-num #x21c :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x21c) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -10970,28 +5408,15 @@ :num #x230 :ref-time-num #x21c :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 #x21c) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11000,28 +5425,15 @@ :num #x23a :ref-time-num #x21c :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 4.0 :list (new 'static 'boxed-array :type int32 #x21c) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11032,65 +5444,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11101,65 +5474,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11170,65 +5504,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11239,65 +5534,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11306,68 +5562,29 @@ :num #xd6b :ref-time-num #xd66 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11378,65 +5595,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11445,68 +5623,29 @@ :num #xd75 :ref-time-num #xd70 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11515,68 +5654,29 @@ :num #xd7a :ref-time-num #xd75 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11587,65 +5687,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11656,65 +5717,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11723,68 +5745,29 @@ :num #xd89 :ref-time-num #xd84 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11795,65 +5778,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11864,65 +5808,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -11931,68 +5836,29 @@ :num #xd98 :ref-time-num #xd93 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12003,65 +5869,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12072,65 +5899,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12141,65 +5929,26 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12208,68 +5957,29 @@ :num #xda4 :ref-time-num #xda2 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12280,23 +5990,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12305,26 +6002,13 @@ :num #xdb6 :ref-time-num #xdac :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12333,56 +6017,23 @@ :num #xdbb :ref-time-num #xdb6 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x5f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x1f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12390,65 +6041,25 @@ :num #xdbd :ref-time-num #xdbb :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12457,65 +6068,25 @@ :num #xdbe :ref-time-num #xdbd :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x5f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x1f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12523,74 +6094,27 @@ :num #xdbf :ref-time-num #xdbe :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 9 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 9 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x1f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12599,47 +6123,21 @@ :num #xdc0 :ref-time-num #xdbf :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12650,44 +6148,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12696,47 +6168,21 @@ :num #xdcf :ref-time-num #xdca :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12747,44 +6193,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12793,47 +6213,21 @@ :num #xdde :ref-time-num #xdd4 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.9 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.9 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12844,44 +6238,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12890,47 +6258,21 @@ :num #xdf2 :ref-time-num #xde8 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12939,47 +6281,21 @@ :num #xdfc :ref-time-num #xdf2 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -12988,47 +6304,21 @@ :num #xe06 :ref-time-num #xdfc :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13039,44 +6329,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.65 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.65 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.65 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.65 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13085,48 +6349,21 @@ :num #xe15 :ref-time-num #xe10 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.69 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.69 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.69 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.69 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13135,28 +6372,15 @@ :num #xe18 :ref-time-num #xe15 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 5.5 :list (new 'static 'boxed-array :type int32 #xe15) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13165,26 +6389,13 @@ :num #xe19 :ref-time-num #xe18 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13193,47 +6404,21 @@ :num #xe1a :ref-time-num #xe19 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13242,47 +6427,21 @@ :num #xe24 :ref-time-num #xe1a :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13293,44 +6452,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13339,47 +6472,21 @@ :num #xe33 :ref-time-num #xe2e :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13390,23 +6497,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13416,23 +6510,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13442,23 +6523,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13468,23 +6536,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13494,23 +6549,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13520,44 +6562,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13565,47 +6581,21 @@ :num #xea6 :ref-time-num #xe6a :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13613,47 +6603,21 @@ :num #xeb0 :ref-time-num #xe6a :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13661,47 +6625,21 @@ :num #xeba :ref-time-num #xe6a :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13711,23 +6649,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13735,26 +6660,13 @@ :num #xece :ref-time-num #xe6a :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13762,26 +6674,13 @@ :num #xed8 :ref-time-num #xe6a :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13790,94 +6689,28 @@ :num #xee2 :ref-time-num #xed8 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 21 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13887,91 +6720,25 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 21 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -13986,23 +6753,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14011,23 +6765,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14036,23 +6777,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14061,23 +6789,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14086,23 +6801,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14111,23 +6813,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14136,23 +6825,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14161,23 +6837,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14186,23 +6849,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14211,23 +6861,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14236,23 +6873,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14261,23 +6885,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14288,53 +6899,20 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14342,28 +6920,15 @@ :num #x19 :ref-time-num 20 :score 100 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 20) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14374,23 +6939,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14401,57 +6953,21 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14460,67 +6976,25 @@ :num #x32 :ref-time-num 40 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14529,65 +7003,25 @@ :num #x37 :ref-time-num 40 :score #x1f4 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14596,47 +7030,21 @@ :num #x3c :ref-time-num 50 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14644,49 +7052,23 @@ :num #x41 :ref-time-num 60 :score 100 - :flags #x18 + :flags (tpath-info-flags tpath-info-flags-3 start-on-rand-anim) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 60) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14695,47 +7077,21 @@ :num #x46 :ref-time-num 60 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14744,56 +7100,23 @@ :num #x4b :ref-time-num 70 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14804,33 +7127,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14841,31 +7143,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14876,32 +7159,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x17) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14911,32 +7174,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x16) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14944,29 +7187,15 @@ :num #x73 :ref-time-num 100 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 100) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -14977,31 +7206,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x15) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15011,32 +7221,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15047,23 +7237,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15072,26 +7249,13 @@ :num #xa0 :ref-time-num #x96 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15102,23 +7266,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15127,26 +7278,13 @@ :num #xa2 :ref-time-num #xa1 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15157,23 +7295,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15182,26 +7307,13 @@ :num #xa4 :ref-time-num #xa3 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15212,23 +7324,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15237,26 +7336,13 @@ :num #xa6 :ref-time-num #xa5 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15267,23 +7353,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x12) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15292,26 +7365,13 @@ :num #xa8 :ref-time-num #xa7 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15322,52 +7382,20 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15378,31 +7406,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x13) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15413,31 +7422,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15446,48 +7436,21 @@ :num #xc8 :ref-time-num #xbe :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15496,48 +7459,21 @@ :num #xcb :ref-time-num #xc8 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15546,48 +7482,21 @@ :num #xcd :ref-time-num #xc8 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15596,48 +7505,21 @@ :num #xcf :ref-time-num #xcd :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15646,48 +7528,21 @@ :num #xd1 :ref-time-num #xcf :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15696,48 +7551,21 @@ :num #xd3 :ref-time-num #xcf :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15746,48 +7574,21 @@ :num #xd5 :ref-time-num #xd3 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15796,48 +7597,21 @@ :num #xd7 :ref-time-num #xd5 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xe) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15846,48 +7620,21 @@ :num #xd9 :ref-time-num #xd7 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15896,48 +7643,21 @@ :num #xdb :ref-time-num #xd9 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15948,23 +7668,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -15976,23 +7683,10 @@ :list (new 'static 'boxed-array :type int32 #xdc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16003,23 +7697,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16030,23 +7711,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xc) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16057,23 +7725,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16085,23 +7740,10 @@ :list (new 'static 'boxed-array :type int32 #xdc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16112,23 +7754,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16139,23 +7768,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #xc) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16166,23 +7782,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16194,23 +7797,10 @@ :list (new 'static 'boxed-array :type int32 #xdc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16221,23 +7811,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16249,22 +7826,10 @@ :list (new 'static 'boxed-array :type int32 #xdc) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16275,34 +7840,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x48) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16312,34 +7855,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16348,37 +7869,15 @@ :num #x122 :ref-time-num #x118 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16389,23 +7888,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16416,23 +7902,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16443,23 +7916,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16468,35 +7928,15 @@ :num #x14a :ref-time-num #x140 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16505,35 +7945,15 @@ :num #x154 :ref-time-num #x14a :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16544,32 +7964,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16577,42 +7977,18 @@ :num #x163 :ref-time-num #x15e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x15e) :anim1 (new 'static 'inline-array tpath-control-frame 9 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.4 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.4 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.4 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16623,37 +7999,13 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 9 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16664,23 +8016,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.9 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.9 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16691,24 +8030,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16719,23 +8044,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16745,24 +8057,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.7 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.7 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16773,23 +8071,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16800,23 +8085,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16827,28 +8099,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16858,34 +8113,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16896,24 +8129,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16922,26 +8141,13 @@ :num #x1f4 :ref-time-num #x1ea :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16951,23 +8157,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -16978,23 +8171,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17005,23 +8185,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17030,30 +8197,14 @@ :num #x21c :ref-time-num #x212 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17064,23 +8215,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17091,23 +8229,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17118,23 +8243,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17145,23 +8257,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17172,23 +8271,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17199,23 +8285,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17226,23 +8299,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17253,23 +8313,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17280,23 +8327,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17307,23 +8341,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17334,23 +8355,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17361,23 +8369,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x7) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17388,23 +8383,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17413,35 +8395,15 @@ :num #x244 :ref-time-num #x243 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17449,29 +8411,15 @@ :num #x249 :ref-time-num #x244 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x244) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17482,32 +8430,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17517,32 +8445,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17553,31 +8461,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17588,31 +8477,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17621,95 +8491,35 @@ :num #x262 :ref-time-num #x258 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17720,32 +8530,12 @@ :score #x1f4 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.7 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17753,37 +8543,17 @@ :num #x269 :ref-time-num #x267 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x267) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17791,37 +8561,17 @@ :num #x26a :ref-time-num #x269 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x269) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17830,95 +8580,35 @@ :num #x26c :ref-time-num #x262 :score 100 - :flags #x30 + :flags (tpath-info-flags start-on-rand-anim double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -17927,98 +8617,35 @@ :num #x276 :ref-time-num #x26c :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xb2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xb2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim3 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18027,35 +8654,15 @@ :num #x27b :ref-time-num #x276 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x40) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18064,34 +8671,15 @@ :num #x27d :ref-time-num #x27b :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3e) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18100,35 +8688,15 @@ :num #x280 :ref-time-num #x27b :score -100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18137,34 +8705,15 @@ :num #x28a :ref-time-num #x27b :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18173,35 +8722,15 @@ :num #x29e :ref-time-num #x28a :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18212,62 +8741,22 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18276,65 +8765,25 @@ :num #x2a2 :ref-time-num #x2a0 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18343,65 +8792,25 @@ :num #x2a4 :ref-time-num #x2a2 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18410,65 +8819,25 @@ :num #x2a6 :ref-time-num #x2a2 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18476,48 +8845,23 @@ :num #x2a7 :ref-time-num #x2a6 :score 100 - :flags #x18 + :flags (tpath-info-flags tpath-info-flags-3 start-on-rand-anim) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2a6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.4 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.4 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18526,64 +8870,25 @@ :num #x2a8 :ref-time-num #x2a7 :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18594,27 +8899,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18625,23 +8914,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18650,26 +8926,13 @@ :num #x2c7 :ref-time-num #x2c6 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18678,26 +8941,13 @@ :num #x2c8 :ref-time-num #x2c7 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18708,23 +8958,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18733,26 +8970,13 @@ :num #x2ca :ref-time-num #x2c9 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18761,26 +8985,13 @@ :num #x2cb :ref-time-num #x2ca :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18791,23 +9002,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18816,26 +9014,13 @@ :num #x2cd :ref-time-num #x2cc :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18844,26 +9029,13 @@ :num #x2ce :ref-time-num #x2cd :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18874,23 +9046,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18899,26 +9058,13 @@ :num #x2d0 :ref-time-num #x2cf :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18927,26 +9073,13 @@ :num #x2d1 :ref-time-num #x2d0 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18957,23 +9090,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -18984,23 +9104,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19009,26 +9116,13 @@ :num #x2d4 :ref-time-num #x2d3 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19039,23 +9133,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19064,26 +9145,13 @@ :num #x2d6 :ref-time-num #x2d5 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19094,23 +9162,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19121,23 +9176,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19148,23 +9190,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19173,26 +9202,13 @@ :num #x2da :ref-time-num #x2d9 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19203,23 +9219,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19230,23 +9233,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19257,23 +9247,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19284,23 +9261,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19311,23 +9275,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19338,23 +9289,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19365,23 +9303,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19392,23 +9317,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19419,23 +9331,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.3 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.3 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19446,23 +9345,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19470,38 +9356,17 @@ :num #x2e9 :ref-time-num #x2e4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2e4) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x19 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19512,23 +9377,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19538,23 +9390,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19562,51 +9401,23 @@ :num #x2fd :ref-time-num #x2f8 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.5 :list (new 'static 'boxed-array :type int32 #x2f8) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xc :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x72 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x72 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #xc - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x72 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #xc :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19617,23 +9428,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19644,23 +9442,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19671,23 +9456,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19698,23 +9470,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19725,23 +9484,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19752,23 +9498,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19779,23 +9512,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19806,23 +9526,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19833,23 +9540,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19860,23 +9554,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19887,23 +9568,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19914,44 +9582,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -19962,44 +9604,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20010,44 +9626,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20056,49 +9646,23 @@ :num #x384 :ref-time-num #x37f :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x37f) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20109,44 +9673,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20157,44 +9695,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20203,49 +9715,23 @@ :num #x393 :ref-time-num #x38e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x38e) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20257,44 +9743,18 @@ :list (new 'static 'boxed-array :type int32 #x37a) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20303,49 +9763,23 @@ :num #x39d :ref-time-num #x398 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x398) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20356,44 +9790,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20402,49 +9810,23 @@ :num #x3a7 :ref-time-num #x3a2 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3a2) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20455,44 +9837,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20501,49 +9857,23 @@ :num #x3b1 :ref-time-num #x3ac :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3ac) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20554,44 +9884,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20600,49 +9904,23 @@ :num #x3bb :ref-time-num #x3b6 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3b6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20653,44 +9931,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20699,49 +9951,23 @@ :num #x3c5 :ref-time-num #x3c0 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3c0) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20752,44 +9978,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20798,49 +9998,23 @@ :num #x3cf :ref-time-num #x3ca :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3ca) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20851,44 +10025,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20897,49 +10045,23 @@ :num #x3d9 :ref-time-num #x3d4 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3d4) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20950,23 +10072,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -20977,23 +10086,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21002,28 +10098,15 @@ :num #x3e8 :ref-time-num #x3e3 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3e3) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21034,23 +10117,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21061,23 +10131,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21086,28 +10143,15 @@ :num #x45b :ref-time-num #x3f2 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x3f2) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21118,23 +10162,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21145,23 +10176,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21170,28 +10188,15 @@ :num #x46a :ref-time-num #x465 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x465) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21202,23 +10207,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21229,23 +10221,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21254,28 +10233,15 @@ :num #x479 :ref-time-num #x474 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x474) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21286,23 +10252,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21311,28 +10264,15 @@ :num #x483 :ref-time-num #x47e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x47e) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21343,23 +10283,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21368,28 +10295,15 @@ :num #x48d :ref-time-num #x488 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 #x488) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21404,44 +10318,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x3f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x25) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21449,47 +10337,21 @@ :s-time 1.0 :num #xa :score #x1f4 - :flags #x50 + :flags (tpath-info-flags start-on-rand-anim tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x26) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21498,47 +10360,21 @@ :num #x14 :ref-time-num 10 :score #x1f4 - :flags #x50 + :flags (tpath-info-flags start-on-rand-anim tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21547,47 +10383,21 @@ :num #x1e :ref-time-num 20 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x66 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x19 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x19 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21596,28 +10406,15 @@ :num #x2a :ref-time-num 30 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :bonus-time 0.5 :list (new 'static 'boxed-array :type int32 30) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x27) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21626,47 +10423,21 @@ :num #x2d :ref-time-num 42 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x4c :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x28) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x33 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21675,47 +10446,21 @@ :num #x32 :ref-time-num 45 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x59 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21726,44 +10471,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21772,47 +10491,21 @@ :num #x46 :ref-time-num 60 :score 100 - :flags #x10 + :flags (tpath-info-flags start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21823,44 +10516,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x1f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x5f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21868,32 +10535,16 @@ :num #x5a :ref-time-num 80 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 1.0 :list (new 'static 'boxed-array :type int32 80) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x29) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21902,47 +10553,21 @@ :num #x64 :ref-time-num 80 :score #x1f4 - :flags #x50 + :flags (tpath-info-flags start-on-rand-anim tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x5f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x5f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2b) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x1f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x1f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21953,31 +10578,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -21985,36 +10591,17 @@ :num #x73 :ref-time-num #x6e :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 #x6e) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22024,31 +10611,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22056,36 +10624,17 @@ :num #x82 :ref-time-num #x78 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 #x78) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22096,44 +10645,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22141,47 +10664,21 @@ :num #x96 :ref-time-num 100 :score -100 - :flags #x14 + :flags (tpath-info-flags score-not-influenced-by-speed start-on-rand-anim) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22189,36 +10686,17 @@ :num #xa0 :ref-time-num #x8c :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x8c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x35) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22229,31 +10707,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22261,36 +10720,17 @@ :num #xb4 :ref-time-num #xaa :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 3.0 :list (new 'static 'boxed-array :type int32 #xaa) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x34) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22301,44 +10741,18 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22347,47 +10761,21 @@ :num #xc8 :ref-time-num #xbe :score -100 - :flags #x50 + :flags (tpath-info-flags start-on-rand-anim tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) :anim2 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22398,27 +10786,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22427,30 +10799,14 @@ :num #xdc :ref-time-num #xd2 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22461,27 +10817,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22492,27 +10832,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x33) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22523,27 +10847,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x32) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22554,27 +10862,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x31) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22582,27 +10874,15 @@ :num #x10e :ref-time-num #x104 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x104) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x2e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22613,31 +10893,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x38) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22646,36 +10907,17 @@ :num #x122 :ref-time-num #x118 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x8c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22686,32 +10928,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22720,38 +10942,17 @@ :num #x136 :ref-time-num #x12c :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x12c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x30) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22762,31 +10963,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22794,36 +10976,17 @@ :num #x14a :ref-time-num #x140 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x140) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x47) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x26 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x26 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22832,35 +10995,15 @@ :num #x154 :ref-time-num #x14a :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x44) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22870,31 +11013,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22902,32 +11026,16 @@ :num #x168 :ref-time-num #x15e :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x15e) :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x3b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22938,32 +11046,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x42) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -22971,38 +11059,17 @@ :num #x17c :ref-time-num #x172 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x172) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x43) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23012,31 +11079,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3c) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23044,37 +11092,17 @@ :num #x18b :ref-time-num #x186 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.0 :list (new 'static 'boxed-array :type int32 #x186) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23085,32 +11113,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x40) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23119,35 +11127,15 @@ :num #x19a :ref-time-num #x190 :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23158,32 +11146,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23192,35 +11160,15 @@ :num #x1ae :ref-time-num #x1a4 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23229,35 +11177,15 @@ :num #x1b3 :ref-time-num #x1ae :score -100 - :flags #x4 + :flags (tpath-info-flags score-not-influenced-by-speed) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23268,32 +11196,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23302,38 +11210,17 @@ :num #x1b6 :ref-time-num #x1b4 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x1b4) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xbf - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #xff :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xbf :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23344,27 +11231,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23373,35 +11244,15 @@ :num #x1c2 :ref-time-num #x1b8 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.7 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.4 - :path-pos #xbf - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.7 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.4 :path-pos #xbf :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23410,34 +11261,15 @@ :num #x1cc :ref-time-num #x1c2 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x49) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23446,35 +11278,15 @@ :num #x1d6 :ref-time-num #x1cc :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23482,36 +11294,17 @@ :num #x1db :ref-time-num #x1d6 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x1d6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23520,35 +11313,15 @@ :num #x1e0 :ref-time-num #x1db :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x5) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.1 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.1 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.8 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23557,35 +11330,15 @@ :num #x1ea :ref-time-num #x1e0 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x3) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #xff - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #xff :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23596,31 +11349,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x4a) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23628,36 +11362,17 @@ :num #x1f9 :ref-time-num #x1f4 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x12c) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23665,36 +11380,17 @@ :num #x1fa :ref-time-num #x1f9 :score #x1f4 - :flags #x48 + :flags (tpath-info-flags tpath-info-flags-3 tpath-info-flags-6) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x131) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23702,36 +11398,17 @@ :num #x1fb :ref-time-num #x1fa :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 3.5 :list (new 'static 'boxed-array :type int32 #x1fa) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x1) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.6 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.6 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23742,31 +11419,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x2) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23774,34 +11432,15 @@ :num #x208 :ref-time-num #x1fe :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23809,38 +11448,17 @@ :num #x20d :ref-time-num #x208 :score #x1f4 - :flags #x8 + :flags (tpath-info-flags tpath-info-flags-3) :bonus-time 2.5 :list (new 'static 'boxed-array :type int32 #x208) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x6) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x59 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x59 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23849,26 +11467,13 @@ :num #x212 :ref-time-num #x208 :score 100 - :flags #x20 + :flags (tpath-info-flags double-hitpoints) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x8) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23877,34 +11482,15 @@ :num #x21c :ref-time-num #x212 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x9) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 0.5 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 0.5 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23913,35 +11499,15 @@ :num #x226 :ref-time-num #x21c :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xa) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 1.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23950,35 +11516,15 @@ :num #x230 :ref-time-num #x226 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xb) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -23989,31 +11535,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24022,34 +11549,15 @@ :num #x244 :ref-time-num #x23a :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xd) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24060,31 +11568,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xc) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24095,31 +11584,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x10) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24130,31 +11600,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #xf) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24165,31 +11616,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24198,34 +11630,15 @@ :num #x276 :ref-time-num #x26c :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x33 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x33 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24233,36 +11646,15 @@ :num #x280 :ref-time-num #x276 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x46) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x4c - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x4c :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 2.5 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24271,34 +11663,15 @@ :num #x28a :ref-time-num #x280 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x16) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24306,34 +11679,15 @@ :num #x294 :ref-time-num #x28a :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x14) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24343,31 +11697,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x17) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24377,31 +11712,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x15) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24411,31 +11727,12 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 8 (new 'static 'tpath-control-frame :path-num #x13) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 4.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 1.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 1.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 4.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 1.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24444,26 +11741,13 @@ :num #x2bc :ref-time-num #x2b2 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24474,23 +11758,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24499,26 +11770,13 @@ :num #x2d0 :ref-time-num #x2c6 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24529,23 +11787,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x11) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24556,27 +11801,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x3f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x3f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.0 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24587,28 +11816,11 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 7 (new 'static 'tpath-control-frame :path-num #x18) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x66 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x66 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command wait)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24617,26 +11829,13 @@ :num #x2f8 :ref-time-num #x2ee :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1a) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24647,23 +11846,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24674,23 +11860,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24701,23 +11874,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24728,23 +11888,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24755,23 +11902,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x19) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24782,23 +11916,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24809,23 +11930,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24836,23 +11944,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24863,23 +11958,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1b) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24890,23 +11972,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24917,23 +11986,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1c) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24942,26 +11998,13 @@ :num #x33c :ref-time-num #x33b :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1e) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 5.0 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 5.0 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24972,23 +12015,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -24999,23 +12029,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25026,23 +12043,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25053,23 +12057,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25080,23 +12071,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1d) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :path-pos #x7f :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25107,23 +12085,10 @@ :score 100 :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x1f) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.8 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.8 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25132,26 +12097,13 @@ :num #x37a :ref-time-num #x370 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 2.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 2.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25160,26 +12112,13 @@ :num #x384 :ref-time-num #x37a :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.0 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.0 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -25188,26 +12127,13 @@ :num #x38e :ref-time-num #x384 :score #x1f4 - :flags #x40 + :flags (tpath-info-flags tpath-info-flags-6) :anim1 (new 'static 'inline-array tpath-control-frame 6 (new 'static 'tpath-control-frame :path-num #x20) - (new 'static 'tpath-control-frame - :time 0.2 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time 3.5 - :command (tpath-control-frame-command tpath-control-frame-command-2) - ) - (new 'static 'tpath-control-frame - :time 0.1 - :command (tpath-control-frame-command tpath-control-frame-command-4) - ) - (new 'static 'tpath-control-frame - :time 0.2 - :command (tpath-control-frame-command tpath-control-frame-command-5) - ) + (new 'static 'tpath-control-frame :time 0.2 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time 3.5 :command (tpath-control-frame-command translate)) + (new 'static 'tpath-control-frame :time 0.1 :command (tpath-control-frame-command align-with-track)) + (new 'static 'tpath-control-frame :time 0.2 :command (tpath-control-frame-command lower)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) diff --git a/test/decompiler/reference/jak2/levels/gungame/gungame-obs_REF.gc b/test/decompiler/reference/jak2/levels/gungame/gungame-obs_REF.gc index 045455ae6a..5867d570fc 100644 --- a/test/decompiler/reference/jak2/levels/gungame/gungame-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/gungame/gungame-obs_REF.gc @@ -217,6 +217,12 @@ ;; definition for method 11 of type training-path ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! training-path ((obj training-path) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (length "training-path-")) (a0-3 (length (-> obj name))) (v1-2 0) @@ -996,14 +1002,8 @@ :ref-time-num -1 :anim1 (new 'static 'inline-array tpath-control-frame 4 (new 'static 'tpath-control-frame :path-num #x23) - (new 'static 'tpath-control-frame - :time 0.3 - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time -1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) + (new 'static 'tpath-control-frame :time 0.3 :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time -1.0 :command (tpath-control-frame-command wait)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1011,15 +1011,8 @@ :ref-time-num -1 :anim1 (new 'static 'inline-array tpath-control-frame 4 (new 'static 'tpath-control-frame :path-num #x23) - (new 'static 'tpath-control-frame - :time 0.3 - :path-pos #x7f - :command (tpath-control-frame-command tpath-control-frame-command-1) - ) - (new 'static 'tpath-control-frame - :time -1.0 - :command (tpath-control-frame-command tpath-control-frame-command-3) - ) + (new 'static 'tpath-control-frame :time 0.3 :path-pos #x7f :command (tpath-control-frame-command arise)) + (new 'static 'tpath-control-frame :time -1.0 :command (tpath-control-frame-command wait)) (new 'static 'tpath-control-frame :command (tpath-control-frame-command end)) ) ) @@ -1229,13 +1222,13 @@ (dotimes (gp-2 (length (-> self course))) (let ((v1-20 (-> self course gp-2))) 0 - (logior! (-> v1-20 flags) 1) - (set! (-> v1-20 flags) (logand -3 (-> v1-20 flags))) + (logior! (-> v1-20 flags) (tpath-info-flags tpath-info-flags-0)) + (logclear! (-> v1-20 flags) (tpath-info-flags broken)) (cond - ((logtest? (-> v1-20 flags) 8) + ((logtest? (-> v1-20 flags) (tpath-info-flags tpath-info-flags-3)) (+! (-> self total-bonus) 1) ) - ((not (logtest? (-> v1-20 flags) 4)) + ((not (logtest? (-> v1-20 flags) (tpath-info-flags score-not-influenced-by-speed))) (+! (-> self total-target) 1) ) ) @@ -1523,13 +1516,13 @@ ) (dotimes (gp-0 (length (-> self course))) (let ((s5-0 (-> self course gp-0))) - (when (and (logtest? (-> s5-0 flags) 1) (>= f30-0 (-> s5-0 s-time))) + (when (and (logtest? (-> s5-0 flags) (tpath-info-flags tpath-info-flags-0)) (>= f30-0 (-> s5-0 s-time))) (cond - ((logtest? (-> s5-0 flags) 8) + ((logtest? (-> s5-0 flags) (tpath-info-flags tpath-info-flags-3)) (let ((s4-0 #t)) (dotimes (s3-0 (length (-> self course))) (let ((s2-0 (-> self course s3-0))) - (when (not (logtest? (-> s2-0 flags) 2)) + (when (not (logtest? (-> s2-0 flags) (tpath-info-flags broken))) (dotimes (s1-0 (length (-> s5-0 list))) (if (= (-> s5-0 list s1-0) (-> s2-0 num)) (set! s4-0 #f) @@ -1540,15 +1533,17 @@ ) (when s4-0 (process-spawn gun-dummy-gold self s5-0 :to self) - (set! (-> s5-0 flags) (logand -2 (-> s5-0 flags))) + (logclear! (-> s5-0 flags) (tpath-info-flags tpath-info-flags-0)) ) ) (if (>= f30-0 (+ (-> s5-0 bonus-time) (-> s5-0 s-time))) - (set! (-> s5-0 flags) (logand -2 (-> s5-0 flags))) + (logclear! (-> s5-0 flags) (tpath-info-flags tpath-info-flags-0)) ) ) (else - (when (and (not (logtest? (-> s5-0 flags) 4)) (not (-> self first-enemy-shown?))) + (when (and (not (logtest? (-> s5-0 flags) (tpath-info-flags score-not-influenced-by-speed))) + (not (-> self first-enemy-shown?)) + ) (if (task-node-open? (game-task-node city-red-gun-training-try-once)) (set! (-> self last-sound-id) (add-process *gui-control* self (gui-channel sig) (gui-action play) "sigc024" -99.0 0) @@ -1556,7 +1551,9 @@ ) (set! (-> self first-enemy-shown?) #t) ) - (when (and (logtest? (-> s5-0 flags) 4) (not (-> self first-citizen-shown?))) + (when (and (logtest? (-> s5-0 flags) (tpath-info-flags score-not-influenced-by-speed)) + (not (-> self first-citizen-shown?)) + ) (if (task-node-open? (game-task-node city-red-gun-training-try-once)) (set! (-> self last-sound-id) (add-process *gui-control* self (gui-channel sig) (gui-action play) "sigc025" -99.0 0) @@ -1565,7 +1562,7 @@ (set! (-> self first-citizen-shown?) #t) ) (cond - ((logtest? (-> s5-0 flags) 4) + ((logtest? (-> s5-0 flags) (tpath-info-flags score-not-influenced-by-speed)) (let ((v1-93 (rand-vu-int-count 4))) (cond ((zero? v1-93) @@ -1583,10 +1580,10 @@ ) ) ) - ((logtest? (-> s5-0 flags) 32) + ((logtest? (-> s5-0 flags) (tpath-info-flags double-hitpoints)) (process-spawn gun-dummy-big self s5-0 :to self) ) - ((logtest? (-> s5-0 flags) 64) + ((logtest? (-> s5-0 flags) (tpath-info-flags tpath-info-flags-6)) (process-spawn gun-dummy-peace self s5-0 :to self) ) (else @@ -1605,7 +1602,7 @@ ) ) ) - (set! (-> s5-0 flags) (logand -2 (-> s5-0 flags))) + (logclear! (-> s5-0 flags) (tpath-info-flags tpath-info-flags-0)) ) ) ) @@ -1628,7 +1625,7 @@ ) a1-37 ) - (logtest? (-> gp-1 flags) 2) + (logtest? (-> gp-1 flags) (tpath-info-flags broken)) ) ) ) @@ -2172,7 +2169,7 @@ (set! (-> s4-0 y) (+ 40960.0 (-> s4-0 y))) (set! (-> s4-0 z) (+ 5025792.0 (-> s4-0 z))) (training-manager-method-29 obj s4-0) - (set! (-> s3-0 pickup-type) (the-as pickup-type (-> arg0 s2-0 ammo))) + (set! (-> s3-0 pickup-type) (-> arg0 s2-0 ammo)) (set! (-> s3-0 pickup-spawn-amount) (the float (-> arg0 s2-0 num))) (let* ((s0-0 (ppointer->process (process-spawn crate #f s4-0 'wood s3-0 :to *entity-pool*))) (s1-1 (if (type? s0-0 process-focusable) @@ -2194,8 +2191,8 @@ (dotimes (s5-0 (length arg0)) (let ((v1-2 (-> arg0 s5-0))) 0 - (logior! (-> v1-2 flags) 1) - (set! (-> v1-2 flags) (logand -3 (-> v1-2 flags))) + (logior! (-> v1-2 flags) (tpath-info-flags tpath-info-flags-0)) + (logclear! (-> v1-2 flags) (tpath-info-flags broken)) (let ((a0-6 (-> v1-2 ref-time-num))) (set! (-> v1-2 ref-time-num) -1) (dotimes (a1-3 s5-0) @@ -2264,6 +2261,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! training-manager ((obj training-manager) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (set-setting! 'darkjak #f 0 0) (set! sv-16 (new 'static 'res-tag)) @@ -2566,6 +2569,12 @@ ;; definition for method 11 of type gungame-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! gungame-door ((obj gungame-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) diff --git a/test/decompiler/reference/jak2/levels/hideout/hideout-obs_REF.gc b/test/decompiler/reference/jak2/levels/hideout/hideout-obs_REF.gc index 74a746307c..791946b64c 100644 --- a/test/decompiler/reference/jak2/levels/hideout/hideout-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/hideout/hideout-obs_REF.gc @@ -33,6 +33,12 @@ ;; definition for method 11 of type hide-door-b ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! hide-door-b ((obj hide-door-b) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -178,6 +184,12 @@ ;; definition for method 11 of type hide-light ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! hide-light ((obj hide-light) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) diff --git a/test/decompiler/reference/jak2/levels/hiphog/hiphog-part_REF.gc b/test/decompiler/reference/jak2/levels/hiphog/hiphog-part_REF.gc index b8848ea9e4..4bedebc361 100644 --- a/test/decompiler/reference/jak2/levels/hiphog/hiphog-part_REF.gc +++ b/test/decompiler/reference/jak2/levels/hiphog/hiphog-part_REF.gc @@ -1234,37 +1234,40 @@ (arg3 sparticle-launcher) (arg4 sparticle-launch-state) ) + "Determines the position of the minute hand of the hiphog's clock associated with [[time-of-day-proc]] +TODO - check args +Every real second is 1 minute in Jak's time of day" (local-vars (v1-4 float) (v1-5 float)) (rlet ((vf0 :class vf) (vf1 :class vf) (vf2 :class vf) ) (init-vf0-vector) - (let ((gp-0 (new 'stack-no-clear 'quaternion))) - (let ((a1-1 (new 'stack-no-clear 'vector))) - (let* ((v1-0 *time-of-day*) - (f0-1 (the float (if v1-0 - (-> v1-0 0 minutes) - 0 - ) - ) - ) + (let ((quat (new 'stack-no-clear 'quaternion))) + (let ((temp-vec (new 'stack-no-clear 'vector))) + (let* ((tod *time-of-day*) + (curr-minutes (the float (if tod + (-> tod 0 minutes) + 0 + ) + ) + ) ) - (set-vector! a1-1 (+ 16384.0 (* 1092.2667 f0-1)) 55238.84 49152.0 1.0) + (set-vector! temp-vec (+ 16384.0 (* 1092.2667 curr-minutes)) 55238.84 49152.0 1.0) ) - (quaternion-zxy! gp-0 a1-1) + (quaternion-zxy! quat temp-vec) ) (cond - ((< (-> gp-0 w) 0.0) + ((< (-> quat w) 0.0) (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.sub.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-4 vf1) ) (else (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.add.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-5 vf1) @@ -1284,37 +1287,40 @@ (arg3 sparticle-launcher) (arg4 sparticle-launch-state) ) + "Determines the position of the hour hand of the hiphog's clock associated with [[time-of-day-proc]] +TODO - check args +Every real minute is 1 hour in Jak's time of day" (local-vars (v1-4 float) (v1-5 float)) (rlet ((vf0 :class vf) (vf1 :class vf) (vf2 :class vf) ) (init-vf0-vector) - (let ((gp-0 (new 'stack-no-clear 'quaternion))) - (let ((a1-1 (new 'stack-no-clear 'vector))) - (let* ((v1-0 *time-of-day*) - (f0-1 (the float (if v1-0 - (-> v1-0 0 hours) - 0 - ) - ) - ) + (let ((quat (new 'stack-no-clear 'quaternion))) + (let ((temp-vec (new 'stack-no-clear 'vector))) + (let* ((tod *time-of-day*) + (curr-hours (the float (if tod + (-> tod 0 hours) + 0 + ) + ) + ) ) - (set-vector! a1-1 (+ 16384.0 (* 5461.3335 f0-1)) 55238.84 49152.0 1.0) + (set-vector! temp-vec (+ 16384.0 (* 5461.3335 curr-hours)) 55238.84 49152.0 1.0) ) - (quaternion-zxy! gp-0 a1-1) + (quaternion-zxy! quat temp-vec) ) (cond - ((< (-> gp-0 w) 0.0) + ((< (-> quat w) 0.0) (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.sub.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-4 vf1) ) (else (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.add.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-5 vf1) @@ -1334,37 +1340,41 @@ (arg3 sparticle-launcher) (arg4 sparticle-launch-state) ) + "Determines the position of the second hand of the hiphog's clock associated with [[time-of-day-proc]] +TODO - check args +The clock actually only has 2 hands, this one does not appear to have been used? +Every real second is 1/60th of a second in Jak's time of day" (local-vars (v1-4 float) (v1-5 float)) (rlet ((vf0 :class vf) (vf1 :class vf) (vf2 :class vf) ) (init-vf0-vector) - (let ((gp-0 (new 'stack-no-clear 'quaternion))) - (let ((a1-1 (new 'stack-no-clear 'vector))) - (let* ((v1-0 *time-of-day*) - (f0-1 (the float (if v1-0 - (-> v1-0 0 seconds) - 0 - ) - ) - ) + (let ((quat (new 'stack-no-clear 'quaternion))) + (let ((temp-vec (new 'stack-no-clear 'vector))) + (let* ((tod *time-of-day*) + (curr-seconds (the float (if tod + (-> tod 0 seconds) + 0 + ) + ) + ) ) - (set-vector! a1-1 (+ 16384.0 (* 1092.2667 f0-1)) 55238.84 49152.0 1.0) + (set-vector! temp-vec (+ 16384.0 (* 1092.2667 curr-seconds)) 55238.84 49152.0 1.0) ) - (quaternion-zxy! gp-0 a1-1) + (quaternion-zxy! quat temp-vec) ) (cond - ((< (-> gp-0 w) 0.0) + ((< (-> quat w) 0.0) (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.sub.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-4 vf1) ) (else (.lvf vf1 (&-> arg2 qx-qy-qz-sy quad)) - (.lvf vf2 (&-> gp-0 quad)) + (.lvf vf2 (&-> quat quad)) (.add.vf vf1 vf0 vf2 :mask #b111) (.svf (&-> arg2 qx-qy-qz-sy quad) vf1) (.mov v1-5 vf1) @@ -1568,6 +1578,7 @@ ;; definition of type hiphog-mirror-wf-pt (deftype hiphog-mirror-wf-pt (structure) + "@unused seemingly not used, but probably stood for hiphog-mirror-waveform-point" ((x float :offset-assert 0) (y float :offset-assert 4) ) @@ -1590,19 +1601,23 @@ ) ;; definition for symbol *hiphog-mirror-sheen-waveform*, type (inline-array ripple-wave) -(define *hiphog-mirror-sheen-waveform* (new 'static 'inline-array ripple-wave 6 - (new 'static 'ripple-wave :xmul 0.0625 :zmul 0.5) - (new 'static 'ripple-wave :offs 0.125 :zmul 0.375 :delta 0.9) - (new 'static 'ripple-wave :xdiv -13107 :zdiv #x3ecc :delta 0.5) - (new 'static 'ripple-wave :scale 1.0 :speed 0.52) - (new 'static 'ripple-wave :scale 0.5625 :offs 0.5 :xmul 0.625) - (new 'static 'ripple-wave :offs 0.875 :zdiv #x3f80 :zmul 1.0) - ) - ) +(define *hiphog-mirror-sheen-waveform* + "A collection of [[ripple-wave]]'s used to apply the effect to the hiphog's mirror" + (new 'static 'inline-array ripple-wave 6 + (new 'static 'ripple-wave :xmul 0.0625 :zmul 0.5) + (new 'static 'ripple-wave :offs 0.125 :zmul 0.375 :delta 0.9) + (new 'static 'ripple-wave :xdiv -13107 :zdiv #x3ecc :delta 0.5) + (new 'static 'ripple-wave :scale 1.0 :speed 0.52) + (new 'static 'ripple-wave :scale 0.5625 :offs 0.5 :xmul 0.625) + (new 'static 'ripple-wave :offs 0.875 :zdiv #x3f80 :zmul 1.0) + ) + ) ;; definition for function hiphog-mirror-sheen-func ;; WARN: Return type mismatch int vs none. (defun hiphog-mirror-sheen-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "Handles the effect on the hiphogs mirror, which involves using [[*hiphog-mirror-sheen-waveform*]] +TODO on args and some more documentation" (let ((s5-0 (new 'stack-no-clear 'vector))) (set-vector! s5-0 -1515.52 0.0 -95436.8 1.0) (vector-! s5-0 (camera-pos) s5-0) @@ -1610,17 +1625,19 @@ (vector-normalize! s5-0 1.0) (let* ((f0-8 (+ 32768.0 (atan (-> s5-0 x) (-> s5-0 z)))) (f0-9 (lerp-scale 0.0 1.0 f0-8 19478.756 45875.2)) - (a2-2 (the-as object (-> *hiphog-mirror-sheen-waveform* 0))) - (v1-4 (the-as ripple-wave a2-2)) + (curr-ripple-wave (the-as object (-> *hiphog-mirror-sheen-waveform* 0))) + (prev-ripple-wave (the-as ripple-wave curr-ripple-wave)) ) - (while (< (-> (the-as ripple-wave a2-2) scale) f0-9) - (set! v1-4 (the-as ripple-wave a2-2)) - (set! a2-2 (&-> (the-as (inline-array ripple-wave) a2-2) 0 xmul)) + (while (< (-> (the-as ripple-wave curr-ripple-wave) scale) f0-9) + (set! prev-ripple-wave (the-as ripple-wave curr-ripple-wave)) + (set! curr-ripple-wave (&-> (the-as (inline-array ripple-wave) curr-ripple-wave) 0 xmul)) ) (let ((f0-12 (lerp 0.9 1.0 (lerp - (-> v1-4 offs) - (-> (the-as ripple-wave a2-2) offs) - (/ (- f0-9 (-> v1-4 scale)) (- (-> (the-as ripple-wave a2-2) scale) (-> v1-4 scale))) + (-> prev-ripple-wave offs) + (-> (the-as ripple-wave curr-ripple-wave) offs) + (/ (- f0-9 (-> prev-ripple-wave scale)) + (- (-> (the-as ripple-wave curr-ripple-wave) scale) (-> prev-ripple-wave scale)) + ) ) ) ) @@ -1655,7 +1672,3 @@ (sp-flt spt-rotate-y (degrees 33.436)) ) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/hiphog/hiphog-scenes_REF.gc b/test/decompiler/reference/jak2/levels/hiphog/hiphog-scenes_REF.gc index a4c05394b8..b6a5b858fc 100644 --- a/test/decompiler/reference/jak2/levels/hiphog/hiphog-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/hiphog/hiphog-scenes_REF.gc @@ -31,37 +31,43 @@ ;; definition for method 11 of type hip-door-b ;; WARN: Return type mismatch object vs none. -(defmethod init-from-entity! hip-door-b ((obj hip-door-b) (arg0 entity-actor)) - (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) - (set! (-> s5-0 penetrated-by) (penetrate)) - (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) - (set! (-> s5-0 total-prims) (the-as uint 3)) - (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle)) - (set! (-> s4-0 prim-core collide-with) (collide-spec jak bot player-list)) - (set! (-> s4-0 prim-core action) (collide-action solid)) - (set-vector! (-> s4-0 local-sphere) 0.0 8192.0 0.0 20480.0) - (set! (-> s5-0 root-prim) s4-0) +(defmethod init-from-entity! hip-door-b ((obj hip-door-b) (entiy entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) + (set! (-> cshape penetrated-by) (penetrate)) + (let ((cshape-group (new 'process 'collide-shape-prim-group cshape (the-as uint 2) 0))) + (set! (-> cshape total-prims) (the-as uint 3)) + (set! (-> cshape-group prim-core collide-as) (collide-spec obstacle)) + (set! (-> cshape-group prim-core collide-with) (collide-spec jak bot player-list)) + (set! (-> cshape-group prim-core action) (collide-action solid)) + (set-vector! (-> cshape-group local-sphere) 0.0 8192.0 0.0 20480.0) + (set! (-> cshape root-prim) cshape-group) ) - (let ((v1-8 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-8 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-8 prim-core collide-with) (collide-spec jak bot player-list)) - (set! (-> v1-8 prim-core action) (collide-action solid)) - (set! (-> v1-8 transform-index) 4) - (set-vector! (-> v1-8 local-sphere) 0.0 8192.0 0.0 16384.0) + (let ((cshape-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> cshape-mesh prim-core collide-as) (collide-spec obstacle)) + (set! (-> cshape-mesh prim-core collide-with) (collide-spec jak bot player-list)) + (set! (-> cshape-mesh prim-core action) (collide-action solid)) + (set! (-> cshape-mesh transform-index) 4) + (set-vector! (-> cshape-mesh local-sphere) 0.0 8192.0 0.0 16384.0) ) - (let ((v1-10 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 1) (the-as uint 0)))) - (set! (-> v1-10 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-10 prim-core collide-with) (collide-spec jak bot player-list)) - (set! (-> v1-10 prim-core action) (collide-action solid)) - (set! (-> v1-10 transform-index) 5) - (set-vector! (-> v1-10 local-sphere) 0.0 8192.0 0.0 16384.0) + (let ((cshape-mesh2 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 1) (the-as uint 0)))) + (set! (-> cshape-mesh2 prim-core collide-as) (collide-spec obstacle)) + (set! (-> cshape-mesh2 prim-core collide-with) (collide-spec jak bot player-list)) + (set! (-> cshape-mesh2 prim-core action) (collide-action solid)) + (set! (-> cshape-mesh2 transform-index) 5) + (set-vector! (-> cshape-mesh2 local-sphere) 0.0 8192.0 0.0 16384.0) ) - (set! (-> s5-0 nav-radius) (* 0.75 (-> s5-0 root-prim local-sphere w))) - (let ((v1-13 (-> s5-0 root-prim))) - (set! (-> s5-0 backup-collide-as) (-> v1-13 prim-core collide-as)) - (set! (-> s5-0 backup-collide-with) (-> v1-13 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root prim-core collide-with)) ) - (set! (-> obj root-override) s5-0) + (set! (-> obj root-override) cshape) ) (initialize-skeleton obj @@ -134,8 +140,8 @@ ;; definition for method 35 of type hip-whack-a-metal (defmethod get-art-elem hip-whack-a-metal ((obj hip-whack-a-metal)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" - (case (-> (game-task-control-method-9 (-> obj task)) action) +@returns the appropriate [[art-element]] for the given NPC" + (case (-> (get-current-task-event (-> obj task)) action) (((game-task-action play)) (set! (-> obj talk-message) (game-text-id text-x186)) ) @@ -221,9 +227,15 @@ ;; definition for method 11 of type hip-mirror ;; WARN: Return type mismatch object vs none. -(defmethod init-from-entity! hip-mirror ((obj hip-mirror) (arg0 entity-actor)) +(defmethod init-from-entity! hip-mirror ((obj hip-mirror) (entity entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) - (process-drawable-from-entity! obj arg0) + (process-drawable-from-entity! obj entity) (initialize-skeleton obj (the-as skeleton-group (art-group-get-by-name *level* "skel-hip-mirror" (the-as (pointer uint32) #f))) @@ -292,9 +304,9 @@ ;; definition for function hiphog-activate ;; INFO: Used lq/sq (defun hiphog-activate () - (let ((a0-1 (entity-by-name "hip-mirror-2"))) - (when a0-1 - (set! (-> *math-camera* mirror-trans quad) (-> a0-1 extra trans quad)) + (let ((mirror (entity-by-name "hip-mirror-2"))) + (when mirror + (set! (-> *math-camera* mirror-trans quad) (-> mirror extra trans quad)) (vector-rotate-y! (-> *math-camera* mirror-normal) (new 'static 'vector :x 1.0 :w 1.0) -10297.162) ) ) @@ -436,7 +448,7 @@ ;; definition for method 35 of type sig-npc (defmethod get-art-elem sig-npc ((obj sig-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (if (task-node-open? (game-task-node forest-hunt-introduction)) (-> obj draw art-group data 4) (-> obj draw art-group data 4) diff --git a/test/decompiler/reference/jak2/levels/mars_tomb/tomb-obs_REF.gc b/test/decompiler/reference/jak2/levels/mars_tomb/tomb-obs_REF.gc index 2cb117ec30..141b93f404 100644 --- a/test/decompiler/reference/jak2/levels/mars_tomb/tomb-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/mars_tomb/tomb-obs_REF.gc @@ -126,8 +126,8 @@ ;; definition for method 31 of type tomb-plat-wall ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-31 tomb-plat-wall ((obj tomb-plat-wall)) - "TODO - collision stuff" +(defmethod init-plat-collision! tomb-plat-wall ((obj tomb-plat-wall)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -154,8 +154,14 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-plat-wall ((obj tomb-plat-wall) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask platform) (-> obj mask))) - (base-plat-method-31 obj) + (init-plat-collision! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj (the-as skeleton-group (get-art-group obj)) (the-as pair 0)) (set! (-> obj draw light-index) (the-as uint 1)) @@ -170,7 +176,7 @@ (if (not (logtest? (-> obj fact options) (actor-option loop))) (set! v1-16 (logior v1-16 1)) ) - (set! (-> a1-4 sync-type) (the-as basic 'sync-eased)) + (set! (-> a1-4 sync-type) 'sync-eased) (set! (-> a1-4 sync-flags) (the-as sync-flags v1-16)) ) (set! (-> a1-4 period) (the-as uint 1200)) @@ -865,6 +871,12 @@ ;; definition for method 11 of type tomb-stair-block ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-stair-block ((obj tomb-stair-block) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 penetrated-by) (penetrate)) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 8) 0))) @@ -1114,8 +1126,8 @@ ;; definition for method 31 of type tomb-plat-pillar ;; WARN: Return type mismatch collide-shape vs none. -(defmethod base-plat-method-31 tomb-plat-pillar ((obj tomb-plat-pillar)) - "TODO - collision stuff" +(defmethod init-plat-collision! tomb-plat-pillar ((obj tomb-plat-pillar)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle pusher)) @@ -1182,11 +1194,11 @@ (none) ) :code (behavior () - (logior! (-> self elevator-status) (elevator-status elevator-status-1)) + (logior! (-> self elevator-status) (elevator-status waiting-to-ascend)) (ja-no-eval :group! (-> self draw art-group data 4) :num! (loop! 0.0)) (until #f (when (= (-> self path-pos) 1.0) - (logclear! (-> self elevator-status) (elevator-status elevator-status-1)) + (logclear! (-> self elevator-status) (elevator-status waiting-to-ascend)) (sound-play "t-elevator-hit") ) (suspend) @@ -1211,11 +1223,11 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-defaults! tomb-elevator ((obj tomb-elevator)) "Initializes default settings related to the [[elevator]]: - - `elevator-xz-threshold` - - `elevator-y-threshold` - - `elevator-start-pos` - - `elevator-move-rate` - - `elevator-flags`" +- `elevator-xz-threshold` +- `elevator-y-threshold` +- `elevator-start-pos` +- `elevator-move-rate` +- `elevator-flags`" (let ((t9-0 (method-of-type elevator init-defaults!))) (t9-0 obj) ) @@ -1232,8 +1244,8 @@ ;; definition for method 31 of type tomb-elevator ;; WARN: Return type mismatch collide-shape vs none. -(defmethod base-plat-method-31 tomb-elevator ((obj tomb-elevator)) - "TODO - collision stuff" +(defmethod init-plat-collision! tomb-elevator ((obj tomb-elevator)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 2) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec obstacle pusher)) @@ -1257,8 +1269,8 @@ ;; definition for method 42 of type tomb-elevator ;; WARN: Return type mismatch int vs none. -(defmethod clear-ambient-sound! tomb-elevator ((obj tomb-elevator)) - "Might be a virtual function, but clears the object's [[ambient-sound]]" +(defmethod set-ambient-sound! tomb-elevator ((obj tomb-elevator)) + "Sets the elevator's [[ambient-sound]] up" (set! (-> obj sound) (new 'process 'ambient-sound (static-sound-spec "tomb-elevator" :fo-max 70) (-> obj root-override trans)) ) @@ -1298,6 +1310,12 @@ ;; definition for method 11 of type tomb-boss-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-boss-door ((obj tomb-boss-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 2) 0))) @@ -1425,6 +1443,12 @@ ;; definition for method 11 of type tomb-wing-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-wing-door ((obj tomb-wing-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 penetrated-by) (penetrate)) (let ((s4-0 (new 'process 'collide-shape-prim-group s5-0 (the-as uint 3) 0))) @@ -1553,6 +1577,12 @@ ;; definition for method 11 of type tomb-boulder-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-boulder-door ((obj tomb-boulder-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle camera-blocker)) @@ -1827,8 +1857,8 @@ ;; definition for method 31 of type tomb-plat-return ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-31 tomb-plat-return ((obj tomb-plat-return)) - "TODO - collision stuff" +(defmethod init-plat-collision! tomb-plat-return ((obj tomb-plat-return)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -1854,7 +1884,13 @@ ;; definition for method 11 of type tomb-plat-return ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-plat-return ((obj tomb-plat-return) (arg0 entity-actor)) - (base-plat-method-31 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-plat-collision! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj @@ -1883,7 +1919,7 @@ (set! (-> obj root-override pause-adjust-distance) (+ 204800.0 f30-0)) ) (set! (-> obj sound-id) (the-as uint (new-sound-id))) - (base-plat-method-33 obj) + (init-plat! obj) (if (or (task-closed? (the-as string ((method-of-type res-lump get-property-struct) (-> obj entity) 'task-name @@ -2207,6 +2243,12 @@ ;; definition for method 11 of type tomb-sphinx ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-sphinx ((obj tomb-sphinx) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root-override) (the-as collide-shape-moving (new 'process 'trsqv))) (process-drawable-from-entity! obj arg0) (set! (-> obj target-actor) (entity-actor-lookup arg0 'alt-actor 0)) @@ -2220,7 +2262,3 @@ ) (none) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/mars_tomb/tomb-scenes_REF.gc b/test/decompiler/reference/jak2/levels/mars_tomb/tomb-scenes_REF.gc index bf93a974f8..0a53746f2b 100644 --- a/test/decompiler/reference/jak2/levels/mars_tomb/tomb-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/mars_tomb/tomb-scenes_REF.gc @@ -349,10 +349,10 @@ ;; WARN: Return type mismatch int vs none. (defbehavior attach-pod-part scene-player () (let ((v1-0 #f) - (gp-0 (-> self subtitle-change-time)) + (sub-change-time (-> self subtitle-change-time)) ) (when (>= (- (-> self clock frame-counter) (-> self speed-press-time)) 0) - (set! gp-0 (logxor gp-0 2048)) + (set! sub-change-time (logxor sub-change-time 2048)) (set! (-> self speed-press-time) (+ (-> self clock frame-counter) (seconds 0.5))) (set! v1-0 #t) ) @@ -363,8 +363,8 @@ (v1-7 (the-as number (logior #x3f800000 v1-6))) ) (if (< f30-0 (+ -1.0 (the-as float v1-7))) - (set! gp-0 (logior gp-0 (ash 1 s5-0))) - (set! gp-0 (logclear gp-0 (ash 1 s5-0))) + (set! sub-change-time (logior sub-change-time (ash 1 s5-0))) + (set! sub-change-time (logclear sub-change-time (ash 1 s5-0))) ) ) ) @@ -374,7 +374,7 @@ (set! v1-0 #t) ) (when v1-0 - (set! (-> self subtitle-change-time) gp-0) + (set! (-> self subtitle-change-time) sub-change-time) (remove-from-process *part-engine* self) (add-connection *part-engine* self 13 self 3264 (new 'static 'vector :w 819200.0)) (add-connection *part-engine* self 14 self 3264 (new 'static 'vector :w 819200.0)) @@ -382,38 +382,38 @@ (add-connection *part-engine* self 5 self 3251 (new 'static 'vector :w 819200.0)) (add-connection *part-engine* self 6 self 3251 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 1) + (if (logtest? sub-change-time 1) (add-connection *part-engine* self 8 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 2) + (if (logtest? sub-change-time 2) (add-connection *part-engine* self 9 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 4) + (if (logtest? sub-change-time 4) (add-connection *part-engine* self 10 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 8) + (if (logtest? sub-change-time 8) (add-connection *part-engine* self 11 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 16) + (if (logtest? sub-change-time 16) (add-connection *part-engine* self 12 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 32) + (if (logtest? sub-change-time 32) (add-connection *part-engine* self 15 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 64) + (if (logtest? sub-change-time 64) (add-connection *part-engine* self 16 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 128) + (if (logtest? sub-change-time 128) (add-connection *part-engine* self 17 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 256) + (if (logtest? sub-change-time 256) (add-connection *part-engine* self 18 self 3252 (new 'static 'vector :w 819200.0)) ) - (if (logtest? gp-0 512) + (if (logtest? sub-change-time 512) (add-connection *part-engine* self 19 self 3252 (new 'static 'vector :w 819200.0)) ) (cond - ((logtest? gp-0 4096) + ((logtest? sub-change-time 4096) (add-connection *part-engine* self 4 self 3258 (new 'static 'vector :y 4096.0 :w 819200.0)) (add-connection *part-engine* self 4 self 3259 (new 'static 'vector :y 4096.0 :w 819200.0)) ) diff --git a/test/decompiler/reference/jak2/levels/mars_tomb/tomb-water_REF.gc b/test/decompiler/reference/jak2/levels/mars_tomb/tomb-water_REF.gc index 11871b332d..464a67f5a2 100644 --- a/test/decompiler/reference/jak2/levels/mars_tomb/tomb-water_REF.gc +++ b/test/decompiler/reference/jak2/levels/mars_tomb/tomb-water_REF.gc @@ -139,6 +139,12 @@ ;; definition for method 11 of type tomb-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-door ((obj tomb-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) (set! (-> s4-0 total-prims) (the-as uint 3)) @@ -340,6 +346,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-beetle-door ((obj tomb-beetle-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) @@ -721,9 +733,9 @@ ;; WARN: Return type mismatch symbol vs none. (defmethod send-event! tomb-beetle-button ((obj tomb-beetle-button) (arg0 symbol)) "Prepares an [[event-message-block]] using the provided type to send an event to: - - the `notify-actor` - - every [[entity-actor]] in the `actor-group` array - @see [[entity-actor]]" +- the `notify-actor` +- every [[entity-actor]] in the `actor-group` array +@see [[entity-actor]]" (when arg0 (let ((a1-1 (new 'stack-no-clear 'event-message-block))) (set! (-> a1-1 from) (process->ppointer self)) @@ -1175,6 +1187,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-plat-simon ((obj tomb-plat-simon) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) @@ -1624,8 +1642,8 @@ ;; definition for method 31 of type tomb-simon-block ;; WARN: Return type mismatch collide-shape vs none. -(defmethod base-plat-method-31 tomb-simon-block ((obj tomb-simon-block)) - "TODO - collision stuff" +(defmethod init-plat-collision! tomb-simon-block ((obj tomb-simon-block)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -1651,7 +1669,7 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defbehavior tomb-simon-block-init-by-other tomb-simon-block ((arg0 vector) (arg1 int) (arg2 int) (arg3 int) (arg4 int)) - (base-plat-method-31 self) + (init-plat-collision! self) (set! (-> self mask) (logior (process-mask platform) (-> self mask))) (set! (-> self root-override trans quad) (-> arg0 quad)) (set! (-> self base-height) (-> self root-override trans y)) @@ -1887,6 +1905,12 @@ ;; definition for method 11 of type tomb-simon-button ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-simon-button ((obj tomb-simon-button) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (with-pp (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 5) 0))) @@ -2351,6 +2375,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-vibe ((obj tomb-vibe) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag) (sv-32 res-tag)) (with-pp (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) @@ -2751,8 +2781,8 @@ ) (let* ((s3-1 (vector-normalize! (vector-! (new 'stack-no-clear 'vector) arg1 arg0) 1.0)) (s2-1 (vector-normalize! (vector-! (new 'stack-no-clear 'vector) arg0 arg1) 1.0)) - (s3-2 (forward-up-nopitch->quaternion (the-as quaternion (new 'stack-no-clear 'vector)) s3-1 *up-vector*)) - (s1-0 (forward-up-nopitch->quaternion (the-as quaternion (new 'stack-no-clear 'vector)) s2-1 *up-vector*)) + (s3-2 (forward-up-nopitch->quaternion (new 'stack-no-clear 'quaternion) s3-1 *up-vector*)) + (s1-0 (forward-up-nopitch->quaternion (new 'stack-no-clear 'quaternion) s2-1 *up-vector*)) (s2-2 (quaternion->matrix (new 'stack-no-clear 'matrix) s3-2)) (s3-3 (quaternion->matrix (new 'stack-no-clear 'matrix) s1-0)) ) @@ -2776,6 +2806,12 @@ ;; definition for method 11 of type tomb-water-trap ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-water-trap ((obj tomb-water-trap) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (let ((a1-3 (new 'stack-no-clear 'sync-info-params))) @@ -2783,7 +2819,7 @@ (if #t (set! v1-1 (logior v1-1 1)) ) - (set! (-> a1-3 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-3 sync-type) 'sync-linear) (set! (-> a1-3 sync-flags) (the-as sync-flags v1-1)) ) (set! (-> a1-3 entity) arg0) @@ -2987,6 +3023,12 @@ ;; definition for method 11 of type tomb-smash-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! tomb-smash-door ((obj tomb-smash-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) (set! (-> s4-0 total-prims) (the-as uint 3)) diff --git a/test/decompiler/reference/jak2/levels/nest/boss/nestb-scenes_REF.gc b/test/decompiler/reference/jak2/levels/nest/boss/nestb-scenes_REF.gc index 3660d8c256..40e9053663 100644 --- a/test/decompiler/reference/jak2/levels/nest/boss/nestb-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/nest/boss/nestb-scenes_REF.gc @@ -1735,6 +1735,12 @@ ;; definition for method 11 of type nest-gun-parts ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! nest-gun-parts ((obj nest-gun-parts) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -1801,6 +1807,12 @@ ;; definition for method 11 of type nest-unbroken-rocks (defmethod init-from-entity! nest-unbroken-rocks ((obj nest-unbroken-rocks) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/test/decompiler/reference/jak2/levels/nest/nest-scenes_REF.gc b/test/decompiler/reference/jak2/levels/nest/nest-scenes_REF.gc index 0242a1acad..e49f9f66f7 100644 --- a/test/decompiler/reference/jak2/levels/nest/nest-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/nest/nest-scenes_REF.gc @@ -98,23 +98,23 @@ ) :exit (behavior () (dotimes (v1-0 5) - (let ((a0-2 (-> self lightning v1-0)) - (a1-0 3) + (let ((control (-> self lightning v1-0)) + (mode 3) ) - (let ((a2-1 (!= a1-0 (-> a0-2 state mode)))) - (case a1-0 + (let ((control-mode (!= mode (-> control state mode)))) + (case mode ((3) - (if a2-1 - (set! (-> a0-2 state counter) 0.0) + (if control-mode + (set! (-> control state counter) 0.0) ) ) ((1) - (set! (-> a0-2 state start-color) (-> a0-2 spec start-color)) - (set! (-> a0-2 state end-color) (-> a0-2 spec end-color)) + (set! (-> control state start-color) (-> control spec start-color)) + (set! (-> control state end-color) (-> control spec end-color)) ) ) ) - (set! (-> a0-2 state mode) (the-as lightning-mode a1-0)) + (set! (-> control state mode) (the-as lightning-mode mode)) ) ) (none) @@ -189,9 +189,9 @@ ;; definition for method 7 of type canyon-lightning-thingy ;; WARN: Return type mismatch process-drawable vs canyon-lightning-thingy. (defmethod relocate canyon-lightning-thingy ((obj canyon-lightning-thingy) (arg0 int)) - (dotimes (v1-0 5) - (if (nonzero? (-> obj lightning v1-0)) - (&+! (-> obj lightning v1-0) arg0) + (dotimes (index 5) + (if (nonzero? (-> obj lightning index)) + (&+! (-> obj lightning index) arg0) ) ) (the-as canyon-lightning-thingy ((method-of-type process-drawable relocate) obj arg0)) diff --git a/test/decompiler/reference/jak2/levels/palace/explore/palent-part_REF.gc b/test/decompiler/reference/jak2/levels/palace/explore/palent-part_REF.gc index cda5c39fb8..f3447f255f 100644 --- a/test/decompiler/reference/jak2/levels/palace/explore/palent-part_REF.gc +++ b/test/decompiler/reference/jak2/levels/palace/explore/palent-part_REF.gc @@ -386,6 +386,7 @@ ;; definition for function palent-deactivate ;; WARN: Return type mismatch int vs none. (defun palent-deactivate () + "Sets [[palshaft.bigmap-id]] to `20`" (set! (-> palshaft bigmap-id) (the-as uint 20)) 0 (none) @@ -394,11 +395,8 @@ ;; definition for function palent-activate ;; WARN: Return type mismatch int vs none. (defun palent-activate () + "Sets [[palshaft.bigmap-id]] to `12`" (set! (-> palshaft bigmap-id) (the-as uint 12)) 0 (none) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/palace/roof/palboss-scenes_REF.gc b/test/decompiler/reference/jak2/levels/palace/roof/palboss-scenes_REF.gc index 29963de76e..ad53601c89 100644 --- a/test/decompiler/reference/jak2/levels/palace/roof/palboss-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/palace/roof/palboss-scenes_REF.gc @@ -109,7 +109,7 @@ 4792 (new 'static 'vector :x -5439.488 :y -1794.048 :z 11444.224 :w 819200.0) ) - (if (logtest? gp-0 (elevator-status elevator-status-0)) + (if (logtest? gp-0 (elevator-status waiting-to-descend)) (add-connection *part-engine* self @@ -119,7 +119,7 @@ (new 'static 'vector :x -4128.768 :y 2355.2 :z 3653.632 :w 819200.0) ) ) - (if (logtest? gp-0 (elevator-status elevator-status-1)) + (if (logtest? gp-0 (elevator-status waiting-to-ascend)) (add-connection *part-engine* self @@ -801,7 +801,7 @@ 4792 (new 'static 'vector :x -5439.488 :y -1794.048 :z 11444.224 :w 819200.0) ) - (if (logtest? gp-0 (elevator-status elevator-status-0)) + (if (logtest? gp-0 (elevator-status waiting-to-descend)) (add-connection *part-engine* self @@ -811,7 +811,7 @@ (new 'static 'vector :x -4128.768 :y 2355.2 :z 3653.632 :w 819200.0) ) ) - (if (logtest? gp-0 (elevator-status elevator-status-1)) + (if (logtest? gp-0 (elevator-status waiting-to-ascend)) (add-connection *part-engine* self diff --git a/test/decompiler/reference/jak2/levels/palace/roof/palroof-part_REF.gc b/test/decompiler/reference/jak2/levels/palace/roof/palroof-part_REF.gc index 22cf6931f2..8029cdf4ce 100644 --- a/test/decompiler/reference/jak2/levels/palace/roof/palroof-part_REF.gc +++ b/test/decompiler/reference/jak2/levels/palace/roof/palroof-part_REF.gc @@ -223,6 +223,7 @@ ;; definition for function check-drop-level-palroof-drop-userdata ;; INFO: Used lq/sq (defun check-drop-level-palroof-drop-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "TODO" (when (< (-> arg2 vector 0 y) (-> arg1 user-float)) (let ((s3-0 (new 'stack-no-clear 'vector))) (sp-kill-particle arg0 arg1) @@ -475,6 +476,7 @@ ;; definition for function palroof-deactivate ;; WARN: Return type mismatch int vs none. (defun palroof-deactivate () + "Sets [[palshaft.bigmap-id]] to `11` and [[*math-camera*.f]] to `20,000` meters" (set! (-> palshaft bigmap-id) (the-as uint 20)) (set! (-> *math-camera* f) (meters 10000)) 0 @@ -484,12 +486,9 @@ ;; definition for function palroof-activate ;; WARN: Return type mismatch int vs none. (defun palroof-activate () + "Sets [[palshaft.bigmap-id]] to `20` and [[*math-camera*.f]] to `10,000` meters" (set! (-> palshaft bigmap-id) (the-as uint 11)) (set! (-> *math-camera* f) (meters 20000)) 0 (none) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/palace/shaft/palshaft-part_REF.gc b/test/decompiler/reference/jak2/levels/palace/shaft/palshaft-part_REF.gc index f76f24a6ff..d2c9105e5f 100644 --- a/test/decompiler/reference/jak2/levels/palace/shaft/palshaft-part_REF.gc +++ b/test/decompiler/reference/jak2/levels/palace/shaft/palshaft-part_REF.gc @@ -795,11 +795,8 @@ ;; definition for function palshaft-deactivate ;; WARN: Return type mismatch int vs none. (defun palshaft-deactivate () + "Sets [[palshaft.bigmap-id]] to `20`" (set! (-> palshaft bigmap-id) (the-as uint 20)) 0 (none) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/palace/throne_room/throne-part_REF.gc b/test/decompiler/reference/jak2/levels/palace/throne_room/throne-part_REF.gc index 011b33855d..8ffa2502a5 100644 --- a/test/decompiler/reference/jak2/levels/palace/throne_room/throne-part_REF.gc +++ b/test/decompiler/reference/jak2/levels/palace/throne_room/throne-part_REF.gc @@ -446,6 +446,7 @@ ;; definition for function throne-deactivate ;; WARN: Return type mismatch int vs none. (defun throne-deactivate () + "Sets [[*math-camera*.f]] to `10,000` meters" (set! (-> *math-camera* f) (meters 10000)) 0 (none) @@ -454,11 +455,8 @@ ;; definition for function throne-activate ;; WARN: Return type mismatch int vs none. (defun throne-activate () + "Sets [[*math-camera*.f]] to `20,000` meters" (set! (-> *math-camera* f) (meters 20000)) 0 (none) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/ruins/breakable-wall_REF.gc b/test/decompiler/reference/jak2/levels/ruins/breakable-wall_REF.gc index 047b56b382..2eded46128 100644 --- a/test/decompiler/reference/jak2/levels/ruins/breakable-wall_REF.gc +++ b/test/decompiler/reference/jak2/levels/ruins/breakable-wall_REF.gc @@ -478,6 +478,12 @@ ;; definition for method 11 of type ruins-breakable-wall ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! ruins-breakable-wall ((obj ruins-breakable-wall) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) (set! (-> obj side) #f) @@ -709,7 +715,3 @@ ) (none) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/ruins/mechtest-obs_REF.gc b/test/decompiler/reference/jak2/levels/ruins/mechtest-obs_REF.gc index 5fbf0df278..f7b98dcb59 100644 --- a/test/decompiler/reference/jak2/levels/ruins/mechtest-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/ruins/mechtest-obs_REF.gc @@ -506,6 +506,12 @@ ;; definition for method 11 of type throwblock ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! throwblock ((obj throwblock) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) @@ -594,6 +600,12 @@ ;; definition for method 11 of type pushblock ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! pushblock ((obj pushblock) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) @@ -651,7 +663,3 @@ (go (method-of-object obj idle)) (none) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/ruins/pillar-collapse_REF.gc b/test/decompiler/reference/jak2/levels/ruins/pillar-collapse_REF.gc index 78aca5081d..5db118ded8 100644 --- a/test/decompiler/reference/jak2/levels/ruins/pillar-collapse_REF.gc +++ b/test/decompiler/reference/jak2/levels/ruins/pillar-collapse_REF.gc @@ -252,6 +252,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! ruins-pillar-collapse ((obj ruins-pillar-collapse) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 symbol) (sv-48 type) (sv-64 collide-shape-moving)) (stack-size-set! (-> obj main-thread) 512) (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) diff --git a/test/decompiler/reference/jak2/levels/ruins/ruins-obs_REF.gc b/test/decompiler/reference/jak2/levels/ruins/ruins-obs_REF.gc index 5474058394..d81d84e698 100644 --- a/test/decompiler/reference/jak2/levels/ruins/ruins-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/ruins/ruins-obs_REF.gc @@ -231,6 +231,12 @@ ;; definition for method 11 of type beam ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! beam ((obj beam) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -284,8 +290,8 @@ ;; WARN: Return type mismatch int vs none. (defmethod start-bouncing! ruins-bridge ((obj ruins-bridge)) "Sets `bouncing` to [[#t]] and sets up the clock to periodically bounce - and translate the platform via the `smush` - @see [[smush-control]]" +and translate the platform via the `smush` +@see [[smush-control]]" (logclear! (-> obj mask) (process-mask sleep)) (logclear! (-> obj mask) (process-mask sleep-code)) 0 @@ -302,6 +308,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! ruins-bridge ((obj ruins-bridge) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -453,8 +465,8 @@ ;; WARN: Return type mismatch int vs none. (defmethod start-bouncing! ruins-drop-plat ((obj ruins-drop-plat)) "Sets `bouncing` to [[#t]] and sets up the clock to periodically bounce - and translate the platform via the `smush` - @see [[smush-control]]" +and translate the platform via the `smush` +@see [[smush-control]]" (activate! (-> obj smush) -1.0 60 150 1.0 1.0 (-> self clock)) (set! (-> obj bounce-time) (-> self clock frame-counter)) (set! (-> obj bouncing) #t) @@ -509,6 +521,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! ruins-drop-plat ((obj ruins-drop-plat) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) diff --git a/test/decompiler/reference/jak2/levels/ruins/ruins-part_REF.gc b/test/decompiler/reference/jak2/levels/ruins/ruins-part_REF.gc index f6addf8304..3dbc99276b 100644 --- a/test/decompiler/reference/jak2/levels/ruins/ruins-part_REF.gc +++ b/test/decompiler/reference/jak2/levels/ruins/ruins-part_REF.gc @@ -152,17 +152,18 @@ ;; definition for function check-drop-level-ruins-rubble ;; INFO: Used lq/sq (defun check-drop-level-ruins-rubble ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "TODO docs" (let ((f30-0 (-> arg1 key origin trans y))) (when (< (-> arg2 vector 0 y) f30-0) - (let ((gp-0 (new 'stack-no-clear 'vector))) + (let ((vec (new 'stack-no-clear 'vector))) (sp-kill-particle arg0 arg1) - (set-vector! gp-0 (-> arg2 vector 0 x) f30-0 (-> arg2 vector 0 z) 1.0) + (set-vector! vec (-> arg2 vector 0 x) f30-0 (-> arg2 vector 0 z) 1.0) (let ((t9-1 sp-launch-particles-var) (a0-2 *sp-particle-system-2d*) (a1-1 (-> *part-id-table* 1255)) (a2-1 *launch-matrix*) ) - (set! (-> a2-1 trans quad) (-> gp-0 quad)) + (set! (-> a2-1 trans quad) (-> vec quad)) (t9-1 a0-2 a1-1 a2-1 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-2 sp-launch-particles-var) @@ -170,7 +171,7 @@ (a1-2 (-> *part-id-table* 1256)) (a2-2 *launch-matrix*) ) - (set! (-> a2-2 trans quad) (-> gp-0 quad)) + (set! (-> a2-2 trans quad) (-> vec quad)) (t9-2 a0-3 a1-2 a2-2 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-3 sp-launch-particles-var) @@ -178,7 +179,7 @@ (a1-3 (-> *part-id-table* 1257)) (a2-3 *launch-matrix*) ) - (set! (-> a2-3 trans quad) (-> gp-0 quad)) + (set! (-> a2-3 trans quad) (-> vec quad)) (t9-3 a0-4 a1-3 a2-3 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) ) @@ -755,6 +756,8 @@ ;; definition for function ruins-bird-bob-func ;; WARN: Return type mismatch int vs none. (defun ruins-bird-bob-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "Move the bird particles up and down, on a sinusoidal period with a wavelength of 300 frames +TODO - check argument types / what birds?" (with-pp (set! (-> arg2 vector 0 y) (+ (-> arg1 key proc root trans y) @@ -788,6 +791,7 @@ ;; definition for function sparticle-ruins-bird-moon ;; WARN: Return type mismatch int vs none. (defun sparticle-ruins-bird-moon ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "TODO - investigate, what even is this?" (set! (-> arg2 vector 1 z) (the float (sar (shl (the int (+ -16384.0 (-> arg1 omega))) 48) 48))) 0 (none) @@ -1218,38 +1222,40 @@ ) ;; definition for function check-drop-level-ruins-tower-userdata-nosplat -(defun check-drop-level-ruins-tower-userdata-nosplat ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) - (when (< (-> arg2 vector 0 y) (-> arg1 user-float)) - (let ((s3-0 (new 'stack-no-clear 'vector))) +(defun check-drop-level-ruins-tower-userdata-nosplat ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector)) + "TODO - docs" + (when (< (-> arg2 y) (-> arg1 user-float)) + (let ((vec (new 'stack-no-clear 'vector))) (sp-kill-particle arg0 arg1) - (set! (-> s3-0 x) (-> arg2 vector 0 x)) - (set! (-> s3-0 y) (-> arg1 user-float)) - (set! (-> s3-0 z) (-> arg2 vector 0 z)) - (set! (-> s3-0 w) 1.0) + (set! (-> vec x) (-> arg2 x)) + (set! (-> vec y) (-> arg1 user-float)) + (set! (-> vec z) (-> arg2 z)) + (set! (-> vec w) 1.0) ) ) - (sparticle-motion-blur arg0 arg1 (the-as vector arg2)) + (sparticle-motion-blur arg0 arg1 arg2) (none) ) ;; definition for function check-drop-level-ruins-tower-userdata ;; INFO: Used lq/sq -(defun check-drop-level-ruins-tower-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) - (when (< (-> arg2 vector 0 y) (-> arg1 user-float)) - (let ((s3-0 (new 'stack-no-clear 'vector))) +(defun check-drop-level-ruins-tower-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector)) + "TODO - docs" + (when (< (-> arg2 y) (-> arg1 user-float)) + (let ((vec (new 'stack-no-clear 'vector))) (sp-kill-particle arg0 arg1) - (set-vector! s3-0 (-> arg2 vector 0 x) (-> arg1 user-float) (-> arg2 vector 0 z) 1.0) + (set-vector! vec (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0) (let ((t9-1 sp-launch-particles-var) (a0-3 *sp-particle-system-3d*) (a1-2 (-> *part-id-table* 1291)) (a2-1 *launch-matrix*) ) - (set! (-> a2-1 trans quad) (-> s3-0 quad)) + (set! (-> a2-1 trans quad) (-> vec quad)) (t9-1 a0-3 a1-2 a2-1 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) ) ) - (sparticle-motion-blur arg0 arg1 (the-as vector arg2)) + (sparticle-motion-blur arg0 arg1 arg2) (none) ) diff --git a/test/decompiler/reference/jak2/levels/ruins/ruins-scenes_REF.gc b/test/decompiler/reference/jak2/levels/ruins/ruins-scenes_REF.gc index b66e319f8c..14d7886af3 100644 --- a/test/decompiler/reference/jak2/levels/ruins/ruins-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/ruins/ruins-scenes_REF.gc @@ -124,14 +124,24 @@ ;; definition for function ruins-slide-sparks ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defun ruins-slide-sparks ((arg0 object) (arg1 vector)) - (let ((t9-0 sp-launch-particles-var) - (a0-1 *sp-particle-system-2d*) - (v1-1 (-> *part-id-table* 1247)) - (a2-0 *launch-matrix*) +(defun ruins-slide-sparks ((arg0 object) (position vector)) + "Generates simple sparks (2D particles) at the location specified. This is used in the cutscene. +@param position The position to render the sparks at +TODO - first arg type?" + (let ((launch-func sp-launch-particles-var) + (2d-sys *sp-particle-system-2d*) + (sp-launcher (-> *part-id-table* 1247)) + (matrix *launch-matrix*) ) - (set! (-> a2-0 trans quad) (-> arg1 quad)) - (t9-0 a0-1 v1-1 a2-0 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) + (set! (-> matrix trans quad) (-> position quad)) + (launch-func + 2d-sys + sp-launcher + matrix + (the-as sparticle-launch-state #f) + (the-as sparticle-launch-control #f) + 1.0 + ) ) 0 (none) @@ -1331,6 +1341,8 @@ ;; definition of type flag (deftype flag (process-drawable) + "The flag in the ruins mission. +The scale will be linearly-interpolated based on the distance from the camera" () :heap-base #x50 :method-count-assert 21 @@ -1360,8 +1372,9 @@ :code (the-as (function none :behavior flag) sleep-code) :post (behavior () (ja :num! (loop!)) - (let ((f0-1 (lerp-scale 1.0 2.5 (vector-vector-distance (camera-pos) (-> self root trans)) 81920.0 901120.0))) - (set-vector! (-> self root scale) f0-1 f0-1 f0-1 1.0) + (let ((flag-scale (lerp-scale 1.0 2.5 (vector-vector-distance (camera-pos) (-> self root trans)) 81920.0 901120.0)) + ) + (set-vector! (-> self root scale) flag-scale flag-scale flag-scale 1.0) ) (set! (-> *part-id-table* 267 init-specs 4 initial-valuef) 24576.0) (set! (-> *part-id-table* 270 init-specs 3 initial-valuef) 65536.0) @@ -1379,6 +1392,12 @@ ;; definition for method 11 of type flag ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! flag ((obj flag) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1395,6 +1414,8 @@ ;; definition of type ruins-precipice (deftype ruins-precipice (process-drawable) + "The edge of the ruins tower that the flag stands on +Touching it flips the `play?` field which will trigger the cutscene" ((play? symbol :offset-assert 200) ) :heap-base #x50 @@ -1484,22 +1505,28 @@ ;; definition for method 11 of type ruins-precipice ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! ruins-precipice ((obj ruins-precipice) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) - (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-2 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-2 prim-core action) (collide-action solid)) - (set! (-> v1-2 transform-index) 3) - (set-vector! (-> v1-2 local-sphere) 2048.0 0.0 2048.0 49152.0) - (set! (-> s4-0 total-prims) (the-as uint 1)) - (set! (-> s4-0 root-prim) v1-2) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) + (let ((cshape-mesh (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> cshape-mesh prim-core collide-as) (collide-spec obstacle)) + (set! (-> cshape-mesh prim-core collide-with) (collide-spec jak player-list)) + (set! (-> cshape-mesh prim-core action) (collide-action solid)) + (set! (-> cshape-mesh transform-index) 3) + (set-vector! (-> cshape-mesh local-sphere) 2048.0 0.0 2048.0 49152.0) + (set! (-> cshape total-prims) (the-as uint 1)) + (set! (-> cshape root-prim) cshape-mesh) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-5 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-5 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-5 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((v1-5 (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> v1-5 prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> v1-5 prim-core collide-with)) ) - (set! (-> obj root) s4-0) + (set! (-> obj root) cshape) ) (process-drawable-from-entity! obj arg0) (vector+! (-> obj root trans) (-> obj root trans) (new 'static 'vector :z 28672.0 :w 1.0)) diff --git a/test/decompiler/reference/jak2/levels/sewer/sewer-obs2_REF.gc b/test/decompiler/reference/jak2/levels/sewer/sewer-obs2_REF.gc index 71cd9cfc0d..1ca91b49d3 100644 --- a/test/decompiler/reference/jak2/levels/sewer/sewer-obs2_REF.gc +++ b/test/decompiler/reference/jak2/levels/sewer/sewer-obs2_REF.gc @@ -41,7 +41,12 @@ ) ;; definition for method 43 of type sew-elevator -(defmethod elevator-method-43 sew-elevator ((obj sew-elevator) (arg0 vector) (arg1 float) (arg2 float)) +(defmethod move-between-points sew-elevator ((obj sew-elevator) (arg0 vector) (arg1 float) (arg2 float)) + "Move between two points on the elevator's path +@param vec TODO not sure +@param point-a The first point fetched from the elevator's path +@param point-b The second point fetched from the path +@see [[path-control]] and [[elevator]]" (let ((s4-0 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg1 'interp)) (a0-3 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg2 'interp)) (v1-3 (-> obj root-override trans)) @@ -56,8 +61,8 @@ ) ;; definition for method 45 of type sew-elevator -(defmethod elevator-method-45 sew-elevator ((obj sew-elevator)) - "@returns Stub, or always returns [[#t]]" +(defmethod commited-to-ride? sew-elevator ((obj sew-elevator)) + "@returns if the target is considered within the elevator area enough to begin descending/ascending" (let* ((gp-0 *target*) (a0-2 (if (type? gp-0 process-focusable) gp-0 @@ -103,7 +108,7 @@ (t9-0) ) ) - (when (and (logtest? (-> self elevator-status) (elevator-status elevator-status-0)) + (when (and (logtest? (-> self elevator-status) (elevator-status waiting-to-descend)) (logtest? (elevator-flags elevator-flags-16) (-> self params flags)) ) (sew-elevator-method-49 self #t) @@ -133,7 +138,7 @@ ) (sound-stop (-> self sound-id)) (sound-play "sew-elev-stop") - (when (and (logtest? (-> self elevator-status) (elevator-status elevator-status-0)) + (when (and (logtest? (-> self elevator-status) (elevator-status waiting-to-descend)) (logtest? (elevator-flags elevator-flags-16) (-> self params flags)) ) (sew-elevator-method-49 self #f) @@ -152,7 +157,9 @@ ;; definition for method 33 of type sew-elevator ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-33 sew-elevator ((obj sew-elevator)) +(defmethod init-plat! sew-elevator ((obj sew-elevator)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." (set! (-> obj sound-id) (new-sound-id)) 0 (none) @@ -162,11 +169,11 @@ ;; WARN: Return type mismatch int vs none. (defmethod init-defaults! sew-elevator ((obj sew-elevator)) "Initializes default settings related to the [[elevator]]: - - `elevator-xz-threshold` - - `elevator-y-threshold` - - `elevator-start-pos` - - `elevator-move-rate` - - `elevator-flags`" +- `elevator-xz-threshold` +- `elevator-y-threshold` +- `elevator-start-pos` +- `elevator-move-rate` +- `elevator-flags`" (let ((t9-0 (method-of-type elevator init-defaults!))) (t9-0 obj) ) @@ -187,8 +194,8 @@ ) ;; definition for method 31 of type sew-elevator -(defmethod base-plat-method-31 sew-elevator ((obj sew-elevator)) - "TODO - collision stuff" +(defmethod init-plat-collision! sew-elevator ((obj sew-elevator)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s5-0 reaction) cshape-reaction-default) @@ -377,6 +384,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-valve ((obj sew-valve) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag) (sv-32 res-tag)) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -679,6 +692,12 @@ ;; definition for method 11 of type sew-mar-statue ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-mar-statue ((obj sew-mar-statue) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj spawned-debris?) #f) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) @@ -752,8 +771,8 @@ ;; WARN: Return type mismatch int vs none. (defmethod start-bouncing! sew-catwalk ((obj sew-catwalk)) "Sets `bouncing` to [[#t]] and sets up the clock to periodically bounce - and translate the platform via the `smush` - @see [[smush-control]]" +and translate the platform via the `smush` +@see [[smush-control]]" (logclear! (-> obj mask) (process-mask sleep)) (logclear! (-> obj mask) (process-mask sleep-code)) 0 @@ -799,6 +818,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-catwalk ((obj sew-catwalk) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 symbol) (sv-48 type) (sv-64 collide-shape-moving)) (stack-size-set! (-> obj main-thread) 512) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) @@ -1064,6 +1089,12 @@ ;; definition for method 11 of type sew-mine-a ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-mine-a ((obj sew-mine-a) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s3-0 prim-core collide-as) (collide-spec pusher)) @@ -1161,6 +1192,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-mine-b ((obj sew-mine-b) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s3-0 prim-core collide-as) (collide-spec pusher)) @@ -1419,6 +1456,12 @@ ;; definition for method 11 of type sew-wall ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-wall ((obj sew-wall) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (with-pp (stack-size-set! (-> obj main-thread) 512) (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) @@ -1583,6 +1626,12 @@ ;; definition for method 11 of type sew-grill ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-grill ((obj sew-grill) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/test/decompiler/reference/jak2/levels/sewer/sewer-obs_REF.gc b/test/decompiler/reference/jak2/levels/sewer/sewer-obs_REF.gc index 265511efe7..40fc6cedd9 100644 --- a/test/decompiler/reference/jak2/levels/sewer/sewer-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/sewer/sewer-obs_REF.gc @@ -170,6 +170,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-single-blade ((obj sew-single-blade) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -386,6 +392,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-tri-blade ((obj sew-tri-blade) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (with-pp (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) @@ -550,6 +562,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-arm-blade ((obj sew-arm-blade) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -693,6 +711,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-multi-blade ((obj sew-multi-blade) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -871,6 +895,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-twist-blade ((obj sew-twist-blade) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj mask) (logior (process-mask ambient) (-> obj mask))) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -1143,6 +1173,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! sew-light-switch ((obj sew-light-switch) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (sew-light-switch-method-22 obj) (process-drawable-from-entity! obj arg0) diff --git a/test/decompiler/reference/jak2/levels/stadium/jetboard/skatea-obs_REF.gc b/test/decompiler/reference/jak2/levels/stadium/jetboard/skatea-obs_REF.gc index 83985f318b..ae08c46097 100644 --- a/test/decompiler/reference/jak2/levels/stadium/jetboard/skatea-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/stadium/jetboard/skatea-obs_REF.gc @@ -1398,6 +1398,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! hoverboard-training-manager ((obj hoverboard-training-manager) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 res-tag)) (set! sv-16 (new 'static 'res-tag)) (let ((v1-1 (res-lump-data (-> obj entity) 'actor-groups pointer :tag-ptr (& sv-16)))) @@ -1586,6 +1592,12 @@ ;; definition for method 11 of type skate-training-ramp ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! skate-training-ramp ((obj skate-training-ramp) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (skate-training-ramp-method-28 obj) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -1726,6 +1738,12 @@ ;; definition for method 11 of type skate-gate ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! skate-gate ((obj skate-gate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (skate-gate-method-29 obj) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -2010,6 +2028,12 @@ ;; definition for method 11 of type skatea-floating-ring ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! skatea-floating-ring ((obj skatea-floating-ring) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (skatea-floating-ring-method-28 obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/test/decompiler/reference/jak2/levels/stadium/stadium-part_REF.gc b/test/decompiler/reference/jak2/levels/stadium/stadium-part_REF.gc index 388758f4fe..f4ab1f10fc 100644 --- a/test/decompiler/reference/jak2/levels/stadium/stadium-part_REF.gc +++ b/test/decompiler/reference/jak2/levels/stadium/stadium-part_REF.gc @@ -650,16 +650,17 @@ ;; definition for function check-drop-level-stadium-drop-userdata ;; INFO: Used lq/sq (defun check-drop-level-stadium-drop-userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix)) + "Ensures the fountains in the stadium don't go through the ground / the splash effect is rendered" (when (< (-> arg2 vector 0 y) (-> arg1 user-float)) - (let ((s3-0 (new 'stack-no-clear 'vector))) + (let ((vec (new 'stack-no-clear 'vector))) (sp-kill-particle arg0 arg1) - (set-vector! s3-0 (-> arg2 vector 0 x) (-> arg1 user-float) (-> arg2 vector 0 z) 1.0) + (set-vector! vec (-> arg2 vector 0 x) (-> arg1 user-float) (-> arg2 vector 0 z) 1.0) (let ((t9-1 sp-launch-particles-var) (a0-3 *sp-particle-system-2d*) (a1-2 (-> *part-id-table* 3938)) (a2-1 *launch-matrix*) ) - (set! (-> a2-1 trans quad) (-> s3-0 quad)) + (set! (-> a2-1 trans quad) (-> vec quad)) (t9-1 a0-3 a1-2 a2-1 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-2 sp-launch-particles-var) @@ -667,7 +668,7 @@ (a1-3 (-> *part-id-table* 3939)) (a2-2 *launch-matrix*) ) - (set! (-> a2-2 trans quad) (-> s3-0 quad)) + (set! (-> a2-2 trans quad) (-> vec quad)) (t9-2 a0-4 a1-3 a2-2 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-3 sp-launch-particles-var) @@ -675,7 +676,7 @@ (a1-4 (-> *part-id-table* 3940)) (a2-3 *launch-matrix*) ) - (set! (-> a2-3 trans quad) (-> s3-0 quad)) + (set! (-> a2-3 trans quad) (-> vec quad)) (t9-3 a0-5 a1-4 a2-3 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) ) @@ -1188,7 +1189,3 @@ (sp-launcher-by-id spt-next-launcher 3958) ) ) - - - - diff --git a/test/decompiler/reference/jak2/levels/stadium/stadium-scenes_REF.gc b/test/decompiler/reference/jak2/levels/stadium/stadium-scenes_REF.gc index 95b1cffe40..e41a948ecf 100644 --- a/test/decompiler/reference/jak2/levels/stadium/stadium-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/stadium/stadium-scenes_REF.gc @@ -3263,7 +3263,7 @@ ;; definition for method 35 of type keira-npc (defmethod get-art-elem keira-npc ((obj keira-npc)) "Checks various things such the current actor, task status, etc to determine the right art-group data to use - @returns the appropriate [[art-element]] for the given NPC" +@returns the appropriate [[art-element]] for the given NPC" (case (-> obj task actor) (((game-task-actor keira-stadium)) (-> obj draw art-group data 4) diff --git a/test/decompiler/reference/jak2/levels/strip/chaincrate_REF.gc b/test/decompiler/reference/jak2/levels/strip/chaincrate_REF.gc index 0624c72476..9617126048 100644 --- a/test/decompiler/reference/jak2/levels/strip/chaincrate_REF.gc +++ b/test/decompiler/reference/jak2/levels/strip/chaincrate_REF.gc @@ -372,6 +372,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! strip-chain-crate ((obj strip-chain-crate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 int)) (with-pp (set! (-> obj root) (new 'process 'trsqv)) diff --git a/test/decompiler/reference/jak2/levels/strip/strip-drop_REF.gc b/test/decompiler/reference/jak2/levels/strip/strip-drop_REF.gc index 7a18e235eb..76cbea64ae 100644 --- a/test/decompiler/reference/jak2/levels/strip/strip-drop_REF.gc +++ b/test/decompiler/reference/jak2/levels/strip/strip-drop_REF.gc @@ -501,6 +501,12 @@ ;; definition for method 11 of type crane ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! crane ((obj crane) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -592,6 +598,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! cranecrate ((obj cranecrate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) @@ -791,6 +803,12 @@ ;; definition for method 11 of type grunt-egg ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! grunt-egg ((obj grunt-egg) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (cond ((>= (res-lump-value arg0 'extra-id int :default (the-as uint128 -1) :time -1000000000.0) 0) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) diff --git a/test/decompiler/reference/jak2/levels/strip/strip-obs_REF.gc b/test/decompiler/reference/jak2/levels/strip/strip-obs_REF.gc index 1d70d7a238..4b4b2ec34d 100644 --- a/test/decompiler/reference/jak2/levels/strip/strip-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/strip/strip-obs_REF.gc @@ -185,6 +185,12 @@ ;; definition for method 11 of type strip-hazard ;; INFO: Used lq/sq (defmethod init-from-entity! strip-hazard ((obj strip-hazard) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-64 res-tag)) (set-vector! (-> obj shove-vec) 0.0 12288.0 24576.0 1.0) (set! (-> obj no-collision-timer) (the-as uint 0)) @@ -209,7 +215,7 @@ (if #t (set! v1-4 (logior v1-4 1)) ) - (set! (-> s4-0 sync-type) (the-as basic 'sync-linear)) + (set! (-> s4-0 sync-type) 'sync-linear) (set! (-> s4-0 sync-flags) (the-as sync-flags v1-4)) ) (set! (-> s4-0 entity) arg0) @@ -289,6 +295,12 @@ ;; definition for method 11 of type fencespikes ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! fencespikes ((obj fencespikes) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 string)) (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) @@ -447,6 +459,12 @@ ;; definition for method 11 of type pitspikes ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! pitspikes ((obj pitspikes) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) @@ -557,6 +575,12 @@ ;; definition for method 11 of type curtainsaw ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! curtainsaw ((obj curtainsaw) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) @@ -976,6 +1000,12 @@ ;; definition for method 11 of type grenade-point ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! grenade-point ((obj grenade-point) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj parented?) #f) (when (not (-> obj parented?)) (let ((a1-1 (handle->process (-> *game-info* controller 0)))) @@ -1260,7 +1290,7 @@ ;; WARN: Return type mismatch int vs none. (defmethod draw-laser-sight grenade ((obj grenade)) "TODO - confirm If applicable, draw the laser sight particles - :virtual" +:virtual" (let ((gp-0 (get-process *default-dead-pool* part-tracker #x4000))) (when gp-0 (let ((t9-1 (method-of-type part-tracker activate))) @@ -1543,7 +1573,7 @@ ;; definition for method 31 of type grenade (defmethod init-proj-settings! grenade ((obj grenade)) "Init relevant settings for the [[projectile]] such as gravity, speed, timeout, etc - :virtual" +:virtual" (with-pp (initialize-skeleton obj @@ -1871,6 +1901,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! drill-plat ((obj drill-plat) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape-moving obj (collide-list-enum hit-by-player)))) (set! (-> s4-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s4-0 reaction) cshape-reaction-default) diff --git a/test/decompiler/reference/jak2/levels/strip/strip-rescue_REF.gc b/test/decompiler/reference/jak2/levels/strip/strip-rescue_REF.gc index 853493af93..2df13f4e47 100644 --- a/test/decompiler/reference/jak2/levels/strip/strip-rescue_REF.gc +++ b/test/decompiler/reference/jak2/levels/strip/strip-rescue_REF.gc @@ -66,6 +66,12 @@ ;; definition for method 11 of type cntrlrm-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! cntrlrm-door ((obj cntrlrm-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 0))) (set! (-> s4-0 total-prims) (the-as uint 4)) @@ -167,6 +173,12 @@ ;; definition for method 11 of type cntrlrm-button ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! cntrlrm-button ((obj cntrlrm-button) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) (set! (-> s4-0 total-prims) (the-as uint 3)) diff --git a/test/decompiler/reference/jak2/levels/temple/canyon/canyon-scenes_REF.gc b/test/decompiler/reference/jak2/levels/temple/canyon/canyon-scenes_REF.gc index 278b9b320d..9b3f3fee02 100644 --- a/test/decompiler/reference/jak2/levels/temple/canyon/canyon-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/temple/canyon/canyon-scenes_REF.gc @@ -1251,17 +1251,18 @@ ;; definition for function canyon-draw-beam ;; INFO: Used lq/sq -(defun canyon-draw-beam ((arg0 vector) (arg1 vector)) - (let ((a2-1 (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) - (set! (-> *part-id-table* 1665 init-specs 4 initial-valuef) (vector-length a2-1)) - (draw-beam (-> *part-id-table* 1665) arg0 a2-1 #f #t) +(defun canyon-draw-beam ((point-a vector) (point-b vector)) + "Draws a particle beam between the two provided [[vector]] points" + (let ((displacement (vector-! (new 'stack-no-clear 'vector) point-b point-a))) + (set! (-> *part-id-table* 1665 init-specs 4 initial-valuef) (vector-length displacement)) + (draw-beam (-> *part-id-table* 1665) point-a displacement #f #t) ) (let ((t9-1 sp-launch-particles-var) (a0-3 *sp-particle-system-2d*) (a1-2 (-> *part-id-table* 1668)) (a2-2 *launch-matrix*) ) - (set! (-> a2-2 trans quad) (-> arg0 quad)) + (set! (-> a2-2 trans quad) (-> point-a quad)) (t9-1 a0-3 a1-2 a2-2 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-2 sp-launch-particles-var) @@ -1269,7 +1270,7 @@ (a1-3 (-> *part-id-table* 1669)) (a2-3 *launch-matrix*) ) - (set! (-> a2-3 trans quad) (-> arg1 quad)) + (set! (-> a2-3 trans quad) (-> point-b quad)) (t9-2 a0-4 a1-3 a2-3 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (none) @@ -1277,17 +1278,18 @@ ;; definition for function canyon-draw-beam-lens ;; INFO: Used lq/sq -(defun canyon-draw-beam-lens ((arg0 vector) (arg1 vector)) - (let ((a2-1 (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) - (set! (-> *part-id-table* 1666 init-specs 4 initial-valuef) (vector-length a2-1)) - (draw-beam (-> *part-id-table* 1666) arg0 a2-1 #f #t) +(defun canyon-draw-beam-lens ((point-a vector) (point-b vector)) + "Draws a particle beam between the two provided [[vector]] points" + (let ((displacement (vector-! (new 'stack-no-clear 'vector) point-b point-a))) + (set! (-> *part-id-table* 1666 init-specs 4 initial-valuef) (vector-length displacement)) + (draw-beam (-> *part-id-table* 1666) point-a displacement #f #t) ) (let ((t9-1 sp-launch-particles-var) (a0-3 *sp-particle-system-2d*) (a1-2 (-> *part-id-table* 1668)) (a2-2 *launch-matrix*) ) - (set! (-> a2-2 trans quad) (-> arg0 quad)) + (set! (-> a2-2 trans quad) (-> point-a quad)) (t9-1 a0-3 a1-2 a2-2 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-2 sp-launch-particles-var) @@ -1295,7 +1297,7 @@ (a1-3 (-> *part-id-table* 1669)) (a2-3 *launch-matrix*) ) - (set! (-> a2-3 trans quad) (-> arg1 quad)) + (set! (-> a2-3 trans quad) (-> point-b quad)) (t9-2 a0-4 a1-3 a2-3 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (none) @@ -1303,17 +1305,18 @@ ;; definition for function canyon-draw-beam-statue ;; INFO: Used lq/sq -(defun canyon-draw-beam-statue ((arg0 vector) (arg1 vector)) - (let ((a2-1 (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) - (set! (-> *part-id-table* 1667 init-specs 4 initial-valuef) (vector-length a2-1)) - (draw-beam (-> *part-id-table* 1667) arg0 a2-1 #f #t) +(defun canyon-draw-beam-statue ((point-a vector) (point-b vector)) + "Draws a particle beam between the two provided [[vector]] points" + (let ((displacement (vector-! (new 'stack-no-clear 'vector) point-b point-a))) + (set! (-> *part-id-table* 1667 init-specs 4 initial-valuef) (vector-length displacement)) + (draw-beam (-> *part-id-table* 1667) point-a displacement #f #t) ) (let ((t9-1 sp-launch-particles-var) (a0-3 *sp-particle-system-2d*) (a1-2 (-> *part-id-table* 1668)) (a2-2 *launch-matrix*) ) - (set! (-> a2-2 trans quad) (-> arg0 quad)) + (set! (-> a2-2 trans quad) (-> point-a quad)) (t9-1 a0-3 a1-2 a2-2 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (let ((t9-2 sp-launch-particles-var) @@ -1321,7 +1324,7 @@ (a1-3 (-> *part-id-table* 1669)) (a2-3 *launch-matrix*) ) - (set! (-> a2-3 trans quad) (-> arg1 quad)) + (set! (-> a2-3 trans quad) (-> point-b quad)) (t9-2 a0-4 a1-3 a2-3 (the-as sparticle-launch-state #f) (the-as sparticle-launch-control #f) 1.0) ) (none) diff --git a/test/decompiler/reference/jak2/levels/temple/canyon/mincan-obs_REF.gc b/test/decompiler/reference/jak2/levels/temple/canyon/mincan-obs_REF.gc index 0f539b677b..8e46d64196 100644 --- a/test/decompiler/reference/jak2/levels/temple/canyon/mincan-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/temple/canyon/mincan-obs_REF.gc @@ -16,8 +16,8 @@ (set! obj obj) (goto cfg-4) ) - (let ((t9-0 (method-of-type water-anim inspect))) - (t9-0 obj) + (let ((func (method-of-type water-anim inspect))) + (func obj) ) (label cfg-4) obj @@ -41,16 +41,16 @@ ;; WARN: Return type mismatch int vs none. (defmethod art-init! water-anim-mincan ((obj water-anim-mincan)) "Initialize a [[water-anim]]'s [[skeleton-group]], joints and ambience." - (let ((t9-0 (method-of-type water-anim art-init!))) - (t9-0 obj) + (let ((func (method-of-type water-anim art-init!))) + (func obj) ) - (let ((v1-2 (new 'process 'ripple-control))) - (set! (-> obj draw ripple) v1-2) + (let ((ripple-control (new 'process 'ripple-control))) + (set! (-> obj draw ripple) ripple-control) (set-vector! (-> obj draw color-mult) 0.01 0.45 0.5 0.75) - (set! (-> v1-2 global-scale) 3072.0) - (set! (-> v1-2 close-fade-dist) 163840.0) - (set! (-> v1-2 far-fade-dist) 245760.0) - (set! (-> v1-2 waveform) ripple-for-water-anim-mincan) + (set! (-> ripple-control global-scale) 3072.0) + (set! (-> ripple-control close-fade-dist) 163840.0) + (set! (-> ripple-control far-fade-dist) 245760.0) + (set! (-> ripple-control waveform) ripple-for-water-anim-mincan) ) 0 (none) @@ -75,8 +75,8 @@ (set! obj obj) (goto cfg-4) ) - (let ((t9-0 (method-of-type process-drawable inspect))) - (t9-0 obj) + (let ((func (method-of-type process-drawable inspect))) + (func obj) ) (label cfg-4) obj @@ -139,6 +139,12 @@ ;; definition for method 11 of type mincan-lighthouse-lens ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mincan-lighthouse-lens ((obj mincan-lighthouse-lens) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -155,9 +161,10 @@ ;; definition for function mincan-lighthouse-lens-init-by-other ;; WARN: Return type mismatch object vs none. -(defbehavior mincan-lighthouse-lens-init-by-other mincan-lighthouse-lens ((arg0 mincan-lighthouse) (arg1 entity-actor)) +(defbehavior mincan-lighthouse-lens-init-by-other mincan-lighthouse-lens ((arg0 mincan-lighthouse) (entity entity-actor)) + "Given an [[entity-actor]], create the [[mincan-lighthouse-lens]]" (set! (-> self root) (new 'process 'trsqv)) - (process-drawable-from-entity! self arg1) + (process-drawable-from-entity! self entity) (initialize-skeleton self (the-as @@ -254,6 +261,12 @@ ;; definition for method 11 of type mincan-lighthouse ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mincan-lighthouse ((obj mincan-lighthouse) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -350,70 +363,76 @@ ;; definition for method 11 of type mincan-lens ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mincan-lens ((obj mincan-lens) (arg0 entity-actor)) - (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) - (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 7) 0))) - (set! (-> s4-0 total-prims) (the-as uint 8)) - (set! (-> s3-0 prim-core collide-as) (collide-spec obstacle)) - (set! (-> s3-0 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> s3-0 prim-core action) (collide-action solid)) - (set-vector! (-> s3-0 local-sphere) 0.0 0.0 0.0 81920.0) - (set! (-> s4-0 root-prim) s3-0) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (let ((cshape (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) + (let ((prim-group (new 'process 'collide-shape-prim-group cshape (the-as uint 7) 0))) + (set! (-> cshape total-prims) (the-as uint 8)) + (set! (-> prim-group prim-core collide-as) (collide-spec obstacle)) + (set! (-> prim-group prim-core collide-with) (collide-spec jak player-list)) + (set! (-> prim-group prim-core action) (collide-action solid)) + (set-vector! (-> prim-group local-sphere) 0.0 0.0 0.0 81920.0) + (set! (-> cshape root-prim) prim-group) ) - (let ((v1-8 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 6) (the-as uint 0)))) - (set! (-> v1-8 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-8 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-8 prim-core action) (collide-action solid)) - (set! (-> v1-8 transform-index) 3) - (set-vector! (-> v1-8 local-sphere) 0.0 0.0 0.0 20480.0) + (let ((mesh-1 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 6) (the-as uint 0)))) + (set! (-> mesh-1 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-1 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-1 prim-core action) (collide-action solid)) + (set! (-> mesh-1 transform-index) 3) + (set-vector! (-> mesh-1 local-sphere) 0.0 0.0 0.0 20480.0) ) - (let ((v1-10 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 4) (the-as uint 0)))) - (set! (-> v1-10 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-10 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-10 prim-core action) (collide-action solid)) - (set! (-> v1-10 transform-index) 3) - (set-vector! (-> v1-10 local-sphere) 0.0 0.0 32768.0 8192.0) + (let ((mesh-2 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 4) (the-as uint 0)))) + (set! (-> mesh-2 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-2 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-2 prim-core action) (collide-action solid)) + (set! (-> mesh-2 transform-index) 3) + (set-vector! (-> mesh-2 local-sphere) 0.0 0.0 32768.0 8192.0) ) - (let ((v1-12 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 5) (the-as uint 0)))) - (set! (-> v1-12 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-12 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-12 prim-core action) (collide-action solid)) - (set! (-> v1-12 transform-index) 3) - (set-vector! (-> v1-12 local-sphere) 0.0 32768.0 0.0 28672.0) + (let ((mesh-3 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 5) (the-as uint 0)))) + (set! (-> mesh-3 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-3 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-3 prim-core action) (collide-action solid)) + (set! (-> mesh-3 transform-index) 3) + (set-vector! (-> mesh-3 local-sphere) 0.0 32768.0 0.0 28672.0) ) - (let ((v1-14 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) - (set! (-> v1-14 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-14 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-14 prim-core action) (collide-action solid)) - (set! (-> v1-14 transform-index) 4) - (set-vector! (-> v1-14 local-sphere) 0.0 12288.0 -36864.0 28672.0) + (let ((mesh-4 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 0) (the-as uint 0)))) + (set! (-> mesh-4 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-4 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-4 prim-core action) (collide-action solid)) + (set! (-> mesh-4 transform-index) 4) + (set-vector! (-> mesh-4 local-sphere) 0.0 12288.0 -36864.0 28672.0) ) - (let ((v1-16 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 1) (the-as uint 0)))) - (set! (-> v1-16 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-16 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-16 prim-core action) (collide-action solid)) - (set! (-> v1-16 transform-index) 7) - (set-vector! (-> v1-16 local-sphere) 0.0 12288.0 -36864.0 28672.0) + (let ((mesh-5 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 1) (the-as uint 0)))) + (set! (-> mesh-5 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-5 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-5 prim-core action) (collide-action solid)) + (set! (-> mesh-5 transform-index) 7) + (set-vector! (-> mesh-5 local-sphere) 0.0 12288.0 -36864.0 28672.0) ) - (let ((v1-18 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 2) (the-as uint 0)))) - (set! (-> v1-18 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-18 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-18 prim-core action) (collide-action solid)) - (set! (-> v1-18 transform-index) 10) - (set-vector! (-> v1-18 local-sphere) 0.0 12288.0 -36864.0 28672.0) + (let ((mesh-6 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 2) (the-as uint 0)))) + (set! (-> mesh-6 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-6 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-6 prim-core action) (collide-action solid)) + (set! (-> mesh-6 transform-index) 10) + (set-vector! (-> mesh-6 local-sphere) 0.0 12288.0 -36864.0 28672.0) ) - (let ((v1-20 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 3) (the-as uint 0)))) - (set! (-> v1-20 prim-core collide-as) (collide-spec obstacle)) - (set! (-> v1-20 prim-core collide-with) (collide-spec jak player-list)) - (set! (-> v1-20 prim-core action) (collide-action solid)) - (set! (-> v1-20 transform-index) 13) - (set-vector! (-> v1-20 local-sphere) 0.0 12288.0 -36864.0 28672.0) + (let ((mesh-7 (new 'process 'collide-shape-prim-mesh cshape (the-as uint 3) (the-as uint 0)))) + (set! (-> mesh-7 prim-core collide-as) (collide-spec obstacle)) + (set! (-> mesh-7 prim-core collide-with) (collide-spec jak player-list)) + (set! (-> mesh-7 prim-core action) (collide-action solid)) + (set! (-> mesh-7 transform-index) 13) + (set-vector! (-> mesh-7 local-sphere) 0.0 12288.0 -36864.0 28672.0) ) - (set! (-> s4-0 nav-radius) (* 0.75 (-> s4-0 root-prim local-sphere w))) - (let ((v1-23 (-> s4-0 root-prim))) - (set! (-> s4-0 backup-collide-as) (-> v1-23 prim-core collide-as)) - (set! (-> s4-0 backup-collide-with) (-> v1-23 prim-core collide-with)) + (set! (-> cshape nav-radius) (* 0.75 (-> cshape root-prim local-sphere w))) + (let ((root-prim (-> cshape root-prim))) + (set! (-> cshape backup-collide-as) (-> root-prim prim-core collide-as)) + (set! (-> cshape backup-collide-with) (-> root-prim prim-core collide-with)) ) - (set! (-> obj root) s4-0) + (set! (-> obj root) cshape) ) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -480,6 +499,12 @@ ;; definition for method 11 of type mincan-cogs ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mincan-cogs ((obj mincan-cogs) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (initialize-skeleton diff --git a/test/decompiler/reference/jak2/levels/temple/mountain-obs2_REF.gc b/test/decompiler/reference/jak2/levels/temple/mountain-obs2_REF.gc index 643eeb42df..623ca12bdc 100644 --- a/test/decompiler/reference/jak2/levels/temple/mountain-obs2_REF.gc +++ b/test/decompiler/reference/jak2/levels/temple/mountain-obs2_REF.gc @@ -81,6 +81,12 @@ ;; definition for method 11 of type mtn-iris-door ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-iris-door ((obj mtn-iris-door) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) @@ -166,8 +172,8 @@ ;; definition for method 31 of type mtn-plat-shoot ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-31 mtn-plat-shoot ((obj mtn-plat-shoot)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-shoot ((obj mtn-plat-shoot)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -199,7 +205,9 @@ ;; definition for method 33 of type mtn-plat-shoot ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-33 mtn-plat-shoot ((obj mtn-plat-shoot)) +(defmethod init-plat! mtn-plat-shoot ((obj mtn-plat-shoot)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." (logclear! (-> obj mask) (process-mask actor-pause)) (set! (-> obj mask) (logior (process-mask enemy) (-> obj mask))) (set-vector! (-> obj axe-flip) 1.0 0.0 0.0 1.0) diff --git a/test/decompiler/reference/jak2/levels/temple/mountain-obs_REF.gc b/test/decompiler/reference/jak2/levels/temple/mountain-obs_REF.gc index ba7f355ca0..7adb1cd6d7 100644 --- a/test/decompiler/reference/jak2/levels/temple/mountain-obs_REF.gc +++ b/test/decompiler/reference/jak2/levels/temple/mountain-obs_REF.gc @@ -1409,6 +1409,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-dice ((obj mtn-dice) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 6) 0))) (set! (-> s4-0 total-prims) (the-as uint 7)) @@ -1584,8 +1590,8 @@ ;; definition for method 42 of type mtn-plat-elevator ;; WARN: Return type mismatch int vs none. -(defmethod clear-ambient-sound! mtn-plat-elevator ((obj mtn-plat-elevator)) - "Might be a virtual function, but clears the object's [[ambient-sound]]" +(defmethod set-ambient-sound! mtn-plat-elevator ((obj mtn-plat-elevator)) + "Sets the elevator's [[ambient-sound]] up" (set! (-> obj sound) (new 'process 'ambient-sound (static-sound-spec "mtn-elevator-lp" :fo-max 70) (-> obj root-override trans)) ) @@ -1594,7 +1600,12 @@ ) ;; definition for method 43 of type mtn-plat-elevator -(defmethod elevator-method-43 mtn-plat-elevator ((obj mtn-plat-elevator) (arg0 vector) (arg1 float) (arg2 float)) +(defmethod move-between-points mtn-plat-elevator ((obj mtn-plat-elevator) (arg0 vector) (arg1 float) (arg2 float)) + "Move between two points on the elevator's path +@param vec TODO not sure +@param point-a The first point fetched from the elevator's path +@param point-b The second point fetched from the path +@see [[path-control]] and [[elevator]]" (let ((s4-0 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg1 'interp)) (a0-3 (get-point-in-path! (-> obj path) (new 'stack-no-clear 'vector) arg2 'interp)) ) @@ -1607,8 +1618,8 @@ ;; definition for method 31 of type mtn-plat-elevator ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-31 mtn-plat-elevator ((obj mtn-plat-elevator)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-elevator ((obj mtn-plat-elevator)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -1703,8 +1714,8 @@ ;; definition for method 31 of type mtn-plat-updown ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-31 mtn-plat-updown ((obj mtn-plat-updown)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-updown ((obj mtn-plat-updown)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -1730,7 +1741,13 @@ ;; definition for method 11 of type mtn-plat-updown ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-plat-updown ((obj mtn-plat-updown) (arg0 entity-actor)) - (base-plat-method-31 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-plat-collision! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj @@ -1763,7 +1780,7 @@ (if (not (logtest? (-> obj fact options) (actor-option loop))) (set! v1-24 (logior v1-24 1)) ) - (set! (-> a1-7 sync-type) (the-as basic 'sync-eased)) + (set! (-> a1-7 sync-type) 'sync-eased) (set! (-> a1-7 sync-flags) (the-as sync-flags v1-24)) ) (set! (-> a1-7 period) (the-as uint 1800)) @@ -1885,6 +1902,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-plat-eject ((obj mtn-plat-eject) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (mtn-plat-eject-method-22 obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton @@ -1968,8 +1991,8 @@ ;; definition for method 31 of type mtn-plat-long ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-31 mtn-plat-long ((obj mtn-plat-long)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-long ((obj mtn-plat-long)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -1995,7 +2018,13 @@ ;; definition for method 11 of type mtn-plat-long ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-plat-long ((obj mtn-plat-long) (arg0 entity-actor)) - (base-plat-method-31 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-plat-collision! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj @@ -2013,7 +2042,7 @@ (if (not (logtest? (-> obj fact options) (actor-option loop))) (set! v1-13 (logior v1-13 1)) ) - (set! (-> a1-5 sync-type) (the-as basic 'sync-linear)) + (set! (-> a1-5 sync-type) 'sync-linear) (set! (-> a1-5 sync-flags) (the-as sync-flags v1-13)) ) (set! (-> a1-5 entity) arg0) @@ -2108,6 +2137,12 @@ ;; definition for method 11 of type mtn-gate ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-gate ((obj mtn-gate) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) (set! (-> s4-0 total-prims) (the-as uint 3)) @@ -2612,6 +2647,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-aval-rocks ((obj mtn-aval-rocks) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-sphere) (sv-48 collide-shape-prim-sphere) (sv-64 vector)) (stack-size-set! (-> obj main-thread) 512) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) @@ -2916,8 +2957,8 @@ ;; definition for method 31 of type mtn-plat-return ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-31 mtn-plat-return ((obj mtn-plat-return)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-return ((obj mtn-plat-return)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((s4-0 (new 'process 'collide-shape-prim-mesh s5-0 (the-as uint 0) (the-as uint 0)))) (set! (-> s4-0 prim-core collide-as) (collide-spec pusher)) @@ -2942,7 +2983,13 @@ ;; definition for method 11 of type mtn-plat-return (defmethod init-from-entity! mtn-plat-return ((obj mtn-plat-return) (arg0 entity-actor)) - (base-plat-method-31 obj) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" + (init-plat-collision! obj) (process-drawable-from-entity! obj arg0) (initialize-skeleton obj @@ -2964,7 +3011,7 @@ (set! (-> obj sound) (new 'process 'ambient-sound (static-sound-spec "mtn-plat-lp" :fo-max 70) (-> obj root-override trans)) ) - (base-plat-method-33 obj) + (init-plat! obj) (mtn-plat-return-method-37 obj) (none) ) @@ -3167,6 +3214,12 @@ ;; definition for method 11 of type mtn-button ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-button ((obj mtn-button) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 2) 0))) (set! (-> s4-0 total-prims) (the-as uint 3)) @@ -3290,6 +3343,12 @@ ;; definition for method 11 of type mtn-gear-device ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-gear-device ((obj mtn-gear-device) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (cond ((task-complete? *game-info* (game-task mountain-gear)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) @@ -3635,7 +3694,9 @@ ;; definition for method 33 of type trans-plat ;; WARN: Return type mismatch float vs none. -(defmethod base-plat-method-33 trans-plat ((obj trans-plat)) +(defmethod init-plat! trans-plat ((obj trans-plat)) + "Does any necessary initial platform setup. +For example for an elevator pre-compute the distance between the first and last points (both ways) and clear the sound." (logior! (-> obj flags) 2) (let* ((s5-0 *target*) (a0-2 (if (type? s5-0 process-focusable) diff --git a/test/decompiler/reference/jak2/levels/temple/mountain-scenes_REF.gc b/test/decompiler/reference/jak2/levels/temple/mountain-scenes_REF.gc index 44ff3e753b..fa36167b45 100644 --- a/test/decompiler/reference/jak2/levels/temple/mountain-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/temple/mountain-scenes_REF.gc @@ -1799,6 +1799,12 @@ ;; definition for method 11 of type mtn-plat-buried-rocks ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-plat-buried-rocks ((obj mtn-plat-buried-rocks) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) @@ -1967,8 +1973,8 @@ ;; definition for method 31 of type mtn-plat-buried ;; WARN: Return type mismatch int vs none. -(defmethod base-plat-method-31 mtn-plat-buried ((obj mtn-plat-buried)) - "TODO - collision stuff" +(defmethod init-plat-collision! mtn-plat-buried ((obj mtn-plat-buried)) + "TODO - collision stuff for setting up the platform" (let ((s5-0 (new 'process 'collide-shape-moving obj (collide-list-enum usually-hit-by-player)))) (set! (-> s5-0 dynam) (copy *standard-dynamics* 'process)) (set! (-> s5-0 reaction) cshape-reaction-default) @@ -2003,9 +2009,9 @@ ;; definition for method 36 of type mtn-plat-buried (defmethod plat-path-sync mtn-plat-buried ((obj mtn-plat-buried)) "If the `sync` period is greater than `0` then transition the state to [[plat::35]] - otherwise, [[plat::34]] +otherwise, [[plat::34]] - @see [[sync-eased]]" +@see [[sync-eased]]" (cond ((or (logtest? (-> obj path flags) (path-control-flag not-found)) (and (not (and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status subtask-complete)))) @@ -3151,6 +3157,12 @@ ;; definition for method 11 of type mtn-lens ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-lens ((obj mtn-lens) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -3198,6 +3210,12 @@ ;; definition for method 11 of type mtn-lens-base ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-lens-base ((obj mtn-lens-base) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -3257,6 +3275,12 @@ ;; definition for method 11 of type mtn-lens-floor ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-lens-floor ((obj mtn-lens-floor) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum usually-hit-by-player)))) (let ((v1-2 (new 'process 'collide-shape-prim-mesh s4-0 (the-as uint 0) (the-as uint 0)))) (set! (-> v1-2 prim-core collide-as) (collide-spec obstacle)) @@ -3324,6 +3348,12 @@ ;; definition for method 11 of type mtn-shard ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-shard ((obj mtn-shard) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (set! (-> obj root) (new 'process 'trsqv)) (process-drawable-from-entity! obj arg0) (logclear! (-> obj mask) (process-mask actor-pause)) @@ -3362,6 +3392,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-step-plat-rocks-a ((obj mtn-step-plat-rocks-a) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 symbol) (sv-48 type) (sv-64 collide-shape)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 3) 0))) @@ -3455,6 +3491,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-step-plat-rocks-b ((obj mtn-step-plat-rocks-b) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 symbol) (sv-48 type) (sv-64 collide-shape)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 17) 0))) @@ -3566,6 +3608,12 @@ ;; INFO: Used lq/sq ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! mtn-step-plat-rocks-c ((obj mtn-step-plat-rocks-c) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (local-vars (sv-16 collide-shape-prim-mesh) (sv-32 symbol) (sv-48 type) (sv-64 collide-shape)) (let ((s4-0 (new 'process 'collide-shape obj (collide-list-enum hit-by-player)))) (let ((s3-0 (new 'process 'collide-shape-prim-group s4-0 (the-as uint 24) 0))) diff --git a/test/decompiler/reference/jak2/levels/temple/rhino-wall_REF.gc b/test/decompiler/reference/jak2/levels/temple/rhino-wall_REF.gc index b5f6820ac7..22d7cdbf00 100644 --- a/test/decompiler/reference/jak2/levels/temple/rhino-wall_REF.gc +++ b/test/decompiler/reference/jak2/levels/temple/rhino-wall_REF.gc @@ -116,6 +116,12 @@ ;; definition for method 11 of type rhino-wall ;; WARN: Return type mismatch object vs none. (defmethod init-from-entity! rhino-wall ((obj rhino-wall) (arg0 entity-actor)) + "Typically the method that does the initial setup on the process, potentially using the [[entity-actor]] provided as part of that. +This commonly includes things such as: +- stack size +- collision information +- loading the skeleton group / bones +- sounds" (stack-size-set! (-> obj main-thread) 512) (set! (-> obj mask) (logior (process-mask collectable) (-> obj mask))) (let ((s3-0 (res-lump-struct (-> obj entity) 'art-name structure)) diff --git a/test/decompiler/reference/jak2/levels/underport/under-scenes_REF.gc b/test/decompiler/reference/jak2/levels/underport/under-scenes_REF.gc index b4ab1b769b..5e3cf30f12 100644 --- a/test/decompiler/reference/jak2/levels/underport/under-scenes_REF.gc +++ b/test/decompiler/reference/jak2/levels/underport/under-scenes_REF.gc @@ -658,20 +658,20 @@ ;; definition for function under-sig-red-shot-overhead ;; INFO: Used lq/sq ;; WARN: Return type mismatch int vs none. -(defbehavior under-sig-red-shot-overhead scene-player ((arg0 object) (arg1 vector) (arg2 sparticle-launch-state)) +(defbehavior under-sig-red-shot-overhead scene-player ((arg0 process-tree) (arg1 vector) (arg2 sparticle-launch-state)) (when (not (-> self aborted?)) - (let ((s4-0 (get-process *default-dead-pool* part-tracker #x4000))) - (when s4-0 - (let ((t9-1 (method-of-type part-tracker activate))) - (t9-1 - (the-as part-tracker s4-0) - (the-as process-tree arg0) + (let ((part (get-process *default-dead-pool* part-tracker #x4000))) + (when part + (let ((activate-func (method-of-type part-tracker activate))) + (activate-func + (the-as part-tracker part) + arg0 (symbol->string (-> part-tracker symbol)) (the-as pointer #x70004000) ) ) (let ((t9-2 run-function-in-process) - (a0-3 s4-0) + (a0-3 part) (a1-5 part-tracker-init) (a2-3 (-> *part-group-id-table* 518)) (a3-1 0) @@ -692,7 +692,7 @@ t3-0 ) ) - (-> s4-0 ppointer) + (-> part ppointer) ) ) (draw-beam (-> *part-id-table* 2291) arg1 (-> arg2 sprite rot-syvel) #f #t) @@ -705,23 +705,23 @@ ;; definition for function under-sig-red-shot-grunt ;; INFO: Used lq/sq ;; WARN: Return type mismatch (pointer process) vs none. -(defbehavior under-sig-red-shot-grunt scene-player ((arg0 object) (arg1 vector) (arg2 sparticle-launch-state)) - (let ((a2-2 (vector-! (new 'stack-no-clear 'vector) arg1 (the-as vector arg0)))) - (set! (-> *part-id-table* 2291 init-specs 4 initial-valuef) (vector-length a2-2)) - (draw-beam (-> *part-id-table* 2291) (the-as vector arg0) a2-2 #f #t) +(defbehavior under-sig-red-shot-grunt scene-player ((arg0 vector) (arg1 vector) (arg2 sparticle-launch-state)) + (let ((beam-end (vector-! (new 'stack-no-clear 'vector) arg1 arg0))) + (set! (-> *part-id-table* 2291 init-specs 4 initial-valuef) (vector-length beam-end)) + (draw-beam (-> *part-id-table* 2291) arg0 beam-end #f #t) ) - (let ((s5-0 (get-process *default-dead-pool* part-tracker #x4000))) - (when s5-0 - (let ((s4-0 (method-of-type part-tracker activate))) - (s4-0 - (the-as part-tracker s5-0) + (let ((part (get-process *default-dead-pool* part-tracker #x4000))) + (when part + (let ((activate-func (method-of-type part-tracker activate))) + (activate-func + (the-as part-tracker part) (command-get-process "grunt-fma" *target*) (symbol->string (-> part-tracker symbol)) (the-as pointer #x70004000) ) ) (let ((t9-4 run-function-in-process) - (a0-7 s5-0) + (a0-7 part) (a1-6 part-tracker-init) (a2-5 (-> *part-group-id-table* 146)) (a3-2 0) @@ -742,7 +742,7 @@ t3-0 ) ) - (-> s5-0 ppointer) + (-> part ppointer) ) ) (none) @@ -778,14 +778,14 @@ ((arg0 object) (arg1 object) (arg2 sparticle-launch-state)) (let ((f0-0 (ja-aframe-num 0))) (when (and (< 527.0 f0-0) (< f0-0 533.0)) - (let ((gp-0 (new 'stack-no-clear 'vector)) - (s5-0 (new 'stack-no-clear 'vector)) + (let ((vec1 (new 'stack-no-clear 'vector)) + (vec2 (new 'stack-no-clear 'vector)) ) (let ((v1-4 (the-as target (command-get-process "grunt-fma" *target*)))) - (set! (-> gp-0 quad) (-> self node-list data 52 bone transform trans quad)) - (set! (-> s5-0 quad) (-> v1-4 node-list data 3 bone transform trans quad)) + (set! (-> vec1 quad) (-> self node-list data 52 bone transform trans quad)) + (set! (-> vec2 quad) (-> v1-4 node-list data 3 bone transform trans quad)) ) - (under-sig-red-shot-grunt gp-0 s5-0 arg2) + (under-sig-red-shot-grunt vec1 vec2 arg2) ) ) ) diff --git a/test/offline/framework/file_management.cpp b/test/offline/framework/file_management.cpp index 509ba84774..6d0f0383ad 100644 --- a/test/offline/framework/file_management.cpp +++ b/test/offline/framework/file_management.cpp @@ -81,17 +81,3 @@ std::vector find_source_files(const std::string& game_nam return result; } - -std::unordered_map> find_art_files( - const std::string& game_name) { - // Pull from the json database of all art file data - // this is generated via 'dump_art_group_info' in the config file - auto file_name = file_util::get_jak_project_dir() / "test" / "offline" / "data" / game_name / - "art-group-info.min.json"; - if (!file_util::file_exists(file_name.string())) { - lg::error("couldn't locate {}, exiting", file_name.string()); - } - auto art_group_info = - parse_commented_json(file_util::read_text_file(file_name), "art-group-info.min.json"); - return art_group_info; -} diff --git a/test/offline/framework/file_management.h b/test/offline/framework/file_management.h index f75f2dc5cf..be529434ae 100644 --- a/test/offline/framework/file_management.h +++ b/test/offline/framework/file_management.h @@ -33,5 +33,3 @@ struct OfflineTestArtFile { std::vector find_source_files(const std::string& game_name, const std::vector& dgos, const std::string& single_file); -std::unordered_map> find_art_files( - const std::string& game_name); diff --git a/test/offline/framework/orchestration.cpp b/test/offline/framework/orchestration.cpp index 68d95a219b..02ee1b8c22 100644 --- a/test/offline/framework/orchestration.cpp +++ b/test/offline/framework/orchestration.cpp @@ -41,11 +41,11 @@ OfflineTestDecompiler setup_decompiler(const OfflineTestWorkGroup& work, for (auto& file : work.work_collection.source_files) { object_files.insert(file.name_in_dgo); // todo, make this work with unique_name } - auto art_group_info = find_art_files(offline_config.game_name); dc.config->allowed_objects = object_files; // don't try to do this because we can't write the file dc.config->generate_symbol_definition_map = false; + dc.config->process_art_groups = false; // not needed, art groups are stored in a json file std::vector dgo_paths; for (auto& x : offline_config.dgos) { @@ -55,7 +55,7 @@ OfflineTestDecompiler setup_decompiler(const OfflineTestWorkGroup& work, dc.db = std::make_unique(dgo_paths, dc.config->obj_file_name_map_file, std::vector{}, std::vector{}, *dc.config); - dc.db->dts.art_group_info = art_group_info; + dc.db->dts.art_group_info = dc.config->art_group_info_dump; std::unordered_set db_files; for (auto& files_by_name : dc.db->obj_files_by_name) {